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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ddf9f5594c5031d447524a4ab4f814ac7755d53..c299c1cf77f96e8411dd5ec32ad59732a7c9d0c2 100644 (file)
--- 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 869896b087aa46ece26184add6fb1e5b01098792..0696f929584aa0b0efbae5ab244c026c4cb63b80 100644 (file)
--- 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)))))))