From ecb557b4ae8a661ea86be1794bb4511e9e4a7168 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 5 Mar 1996 04:22:25 +0000
Subject: (save-place-kill-emacs-hook): Don't save if we never loaded the
 save-place-file.

---
 lisp/saveplace.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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)
 
-- 
cgit v1.2.1