From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 10 Apr 2005 23:32:00 +0000 (+0000)
Subject: (save-place-alist-to-file): Catch errors writing file.
X-Git-Tag: ttn-vms-21-2-B4~1083
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b98170fcf2e7ecf5c3541118628e62b83013653;p=emacs.git

(save-place-alist-to-file): Catch errors writing file.
---

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index e536e3c3237..cb61c8383b5 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -220,7 +220,9 @@ may have changed\) back to `save-place-alist'."
               ((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)))))