From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 May 2005 08:36:26 +0000 (+0000)
Subject: (save-place-alist-to-file): Write the file using write-region.
X-Git-Tag: emacs-pretest-22.0.90~9444
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfde584f6d25db8c0ba229ebb85fba60e99eb1af;p=emacs.git

(save-place-alist-to-file): Write the file using write-region.
---

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 9dc7b858e37..34c88a89948 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -222,7 +222,8 @@ may have changed\) back to `save-place-alist'."
               (t
                t))))
 	(condition-case nil
-	    (write-file file)
+	    ;; Don't use write-file; we don't want this buffer to visit it.
+	    (write-region (point-min) (point-max) file)
 	  (file-error (message "Can't write %s" file)))
         (kill-buffer (current-buffer))
         (message "Saving places to %s...done" file)))))