# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1117355786 0
# Node ID 8641f46cf18f5e1043958bd75c890697341eabd9
# Parent  0d5825b4e125c0a146a485ed337eb8397756d9fc
(save-place-alist-to-file): Write the file using write-region.

diff -r 0d5825b4e125 -r 8641f46cf18f lisp/saveplace.el
--- a/lisp/saveplace.el	Sun May 29 08:34:46 2005 +0000
+++ b/lisp/saveplace.el	Sun May 29 08:36:26 2005 +0000
@@ -222,7 +222,8 @@
               (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)))))