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

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index e536e3c323718203bbdb75d339e5cafa9813bf8a..cb61c8383b503d8038acd975d0087c53030b84d0 100644 (file)
--- 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)))))