(save-place-find-file-hook): Check after-find-file-from-revert-buffer.

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index c2927526eaf9020c3e9b6ed448111d4bd2a811a6..e7b28e747688209ac9ec4959637f54749c618f15 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -178,7 +178,8 @@ To save places automatically in all files, put this in your `.emacs' file:
   (let ((cell (assoc buffer-file-name save-place-alist)))
     (if cell
         (progn
-          (goto-char (cdr cell))
+         (or after-find-file-from-revert-buffer
+             (goto-char (cdr cell)))
           ;; and make sure it will be saved again for later
           (setq save-place t)))))