(defadvice find-alternate-file
(around find-alternate-file-ad (filename) activate)
"読み直しならカーソル位置を保持する"
(let ((point (if (equal (expand-file-name filename) buffer-file-name)
(point))))
ad-do-it
(if point (goto-char point))))