advice で書き直してみた。save-excursion() はこの場合使えないのね。

(defadvice find-alternate-file
(around find-alternate-file-revival-point (filename) activate)
"カーソル位置を保持したままファイルを読み直す"
(let ((point (point)))
ad-do-it (goto-char point)))

関連情報: http://namazu.org/~satoru/diary/?200203c&to=200203272#200203272

>>676
どういう意味？