# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113175920 0
# Node ID 25fbe49d463115a0da34306b94d99f88fb485af5
# Parent  4ccc4c9adf1674e1a9f9643ef5b7615e72d9d8cc
(save-place-alist-to-file): Catch errors writing file.

diff -r 4ccc4c9adf16 -r 25fbe49d4631 lisp/saveplace.el
--- a/lisp/saveplace.el	Sun Apr 10 23:31:17 2005 +0000
+++ b/lisp/saveplace.el	Sun Apr 10 23:32:00 2005 +0000
@@ -220,7 +220,9 @@
               ((eq 'nospecial save-place-version-control) version-control)
               (t
                t))))
-        (write-file file)
+	(condition-case nil
+	    (write-file file)
+	  (file-error (message "Can't write %s" file)))
         (kill-buffer (current-buffer))
         (message "Saving places to %s...done" file)))))