changeset 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 95dca7f7b4b3
children acf049402d18
files lisp/saveplace.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/saveplace.el	Wed Mar 06 06:22:06 1996 +0000
+++ b/lisp/saveplace.el	Wed Mar 06 06:28:39 1996 +0000
@@ -211,10 +211,12 @@
           (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)