Mercurial > emacs
comparison lisp/saveplace.el @ 8711:5554c5e451ae
(save-place-find-file-hook): Check after-find-file-from-revert-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 06 Sep 1994 02:16:33 +0000 |
| parents | 6347a8d838c8 |
| children | 4c8f65a17dc9 |
comparison
equal
deleted
inserted
replaced
| 8710:80ea1fd539f3 | 8711:5554c5e451ae |
|---|---|
| 176 (defun save-place-find-file-hook () | 176 (defun save-place-find-file-hook () |
| 177 (or save-place-loaded (load-save-place-alist-from-file)) | 177 (or save-place-loaded (load-save-place-alist-from-file)) |
| 178 (let ((cell (assoc buffer-file-name save-place-alist))) | 178 (let ((cell (assoc buffer-file-name save-place-alist))) |
| 179 (if cell | 179 (if cell |
| 180 (progn | 180 (progn |
| 181 (goto-char (cdr cell)) | 181 (or after-find-file-from-revert-buffer |
| 182 (goto-char (cdr cell))) | |
| 182 ;; and make sure it will be saved again for later | 183 ;; and make sure it will be saved again for later |
| 183 (setq save-place t))))) | 184 (setq save-place t))))) |
| 184 | 185 |
| 185 (defun save-place-kill-emacs-hook () | 186 (defun save-place-kill-emacs-hook () |
| 186 (save-places-to-alist) | 187 (save-places-to-alist) |