mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(save-place-kill-emacs-hook): Always call save-places-to-alist.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-03-06 06:28:39 +00:00
parent f8eeed5b18
commit 18b1fecd4a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/saveplace.el
View File

@ -211,10 +211,12 @@ To save places automatically in all files, put this in your `.emacs' file:
(setq save-place t))))) (setq save-place t)))))
(defun save-place-kill-emacs-hook () (defun save-place-kill-emacs-hook ()
;; First update the alist. This loads the old save-place-file if nec.
(save-places-to-alist)
;; Now save the alist in the file, if we have ever loaded the file
;; (including just now).
(if save-place-loaded (if save-place-loaded
(progn (save-place-alist-to-file)))
(save-places-to-alist)
(save-place-alist-to-file))))
(add-hook 'find-file-hooks 'save-place-find-file-hook t) (add-hook 'find-file-hooks 'save-place-find-file-hook t)