Emacs Part 12

[0344 名無しさん＠お腹いっぱい。 NG NG]

(defadvice find-alternate-file (around find-alternate-file-ad activate)
(let ((pos (if (equal (expand-file-name (ad-get-arg 0))
buffer-file-name)
(point))))
ad-do-it
(if pos (goto-char pos))))
編集した場合を考えると完璧ではないだろうけど。