(save-place-kill-emacs-hook): Don't save

if we never loaded the save-place-file.

(save-place-kill-emacs-hook): Don't save
if we never loaded the save-place-file.
52b9a931 · Richard M. Stallman · c01e66e1 · 52b9a931
Commit 52b9a931 authored Mar 05, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/saveplace.el lisp/saveplace.el +4 -2

No files found.
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -211,8 +211,10 @@ To save places automatically in all files, put this in your `.emacs' file:
          (setq save-place t)))))

 (defun save-place-kill-emacs-hook ()
-  (save-places-to-alist)
-  (save-place-alist-to-file))
+  (if save-place-loaded
+      (progn
+	(save-places-to-alist)
+	(save-place-alist-to-file))))

 (add-hook 'find-file-hooks 'save-place-find-file-hook t)