Mercurial > emacs
comparison lisp/saveplace.el @ 14768:ba3525471dae
(save-place-kill-emacs-hook): Always call save-places-to-alist.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 06 Mar 1996 06:28:39 +0000 |
parents | cf8ad47dc610 |
children | dc5aa17e7910 |
comparison
equal
deleted
inserted
replaced
14767:95dca7f7b4b3 | 14768:ba3525471dae |
---|---|
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 ;; First update the alist. This loads the old save-place-file if nec. | |
215 (save-places-to-alist) | |
216 ;; Now save the alist in the file, if we have ever loaded the file | |
217 ;; (including just now). | |
214 (if save-place-loaded | 218 (if save-place-loaded |
215 (progn | 219 (save-place-alist-to-file))) |
216 (save-places-to-alist) | |
217 (save-place-alist-to-file)))) | |
218 | 220 |
219 (add-hook 'find-file-hooks 'save-place-find-file-hook t) | 221 (add-hook 'find-file-hooks 'save-place-find-file-hook t) |
220 | 222 |
221 (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook) | 223 (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook) |
222 | 224 |