Mercurial > emacs
comparison lisp/saveplace.el @ 14753:cf8ad47dc610
(save-place-kill-emacs-hook): Don't save
if we never loaded the save-place-file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Mar 1996 04:22:25 +0000 |
| parents | 31d994fe3123 |
| children | ba3525471dae |
comparison
equal
deleted
inserted
replaced
| 14752:38436b7a34ce | 14753:cf8ad47dc610 |
|---|---|
| 209 (goto-char (cdr cell))) | 209 (goto-char (cdr cell))) |
| 210 ;; and make sure it will be saved again for later | 210 ;; and make sure it will be saved again for later |
| 211 (setq save-place t))))) | 211 (setq save-place t))))) |
| 212 | 212 |
| 213 (defun save-place-kill-emacs-hook () | 213 (defun save-place-kill-emacs-hook () |
| 214 (save-places-to-alist) | 214 (if save-place-loaded |
| 215 (save-place-alist-to-file)) | 215 (progn |
| 216 (save-places-to-alist) | |
| 217 (save-place-alist-to-file)))) | |
| 216 | 218 |
| 217 (add-hook 'find-file-hooks 'save-place-find-file-hook t) | 219 (add-hook 'find-file-hooks 'save-place-find-file-hook t) |
| 218 | 220 |
| 219 (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook) | 221 (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook) |
| 220 | 222 |