From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Mar 1996 04:22:25 +0000 (+0000)
Subject: (save-place-kill-emacs-hook): Don't save
X-Git-Tag: emacs-19.34~1107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52b9a93170c1540d45c60ceeaff468fcfc5a1744;p=emacs.git

(save-place-kill-emacs-hook): Don't save
if we never loaded the save-place-file.
---

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index f86c48a6f7c..a33ccbcd7f5 100644
--- 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)