(bookmark-write-file): Catch errors writing file.

This is the same change as saveplace.el at 2005-04-10T23:32:00Z!rms@gnu.org.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ddf9f5594c..c299c1cf77f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-10  Karl Fogel  <kfogel@red-bean.com>
+
+        * bookmark.el (bookmark-write-file): Catch errors writing file.
+        This is the same change as saveplace.el at 2005-04-10T23:32:00Z!rms@gnu.org.
+
 2005-04-10  Richard M. Stallman  <rms@gnu.org>
 
         * startup.el (fancy-splash-tail): Update copyright year.
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 869896b087a..0696f929584 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1355,7 +1355,9 @@ for a file, defaulting to the file defined by variable
                 ((eq 'nospecial bookmark-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))
           (if (>= baud-rate 9600)
               (message "Saving bookmarks to file %s...done" file)))))))