diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-06 06:28:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-06 06:28:39 +0000 |
| commit | 18b1fecd4abc8d549385b3c3df65940b55e4cb6f (patch) | |
| tree | 0e2e17ecea31979460154bbf905b482f8e75f209 /lisp/saveplace.el | |
| parent | f8eeed5b18c8cb80b9b77e4f5ba020672a5c054c (diff) | |
| download | emacs-18b1fecd4abc8d549385b3c3df65940b55e4cb6f.tar.gz | |
(save-place-kill-emacs-hook): Always call save-places-to-alist.
Diffstat (limited to 'lisp/saveplace.el')
| -rw-r--r-- | lisp/saveplace.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index a33ccbcd7f5..9b9268051ea 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -211,10 +211,12 @@ To save places automatically in all files, put this in your `.emacs' file: (setq save-place t))))) (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 - (progn - (save-places-to-alist) - (save-place-alist-to-file)))) + (save-place-alist-to-file))) (add-hook 'find-file-hooks 'save-place-find-file-hook t) |