# HG changeset patch
# User Karl Fogel <kfogel@red-bean.com>
# Date 1113182315 0
# Node ID 014fcf8d4038833355da8d4d578990bcb57ee491
# Parent  9e9819183ce3a2991a7a630396b60022f72e3e39
(bookmark-write-file): Catch errors writing file.
This is the same change as revision 1.30 of saveplace.el.

diff -r 9e9819183ce3 -r 014fcf8d4038 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Apr 10 23:38:37 2005 +0000
+++ b/lisp/ChangeLog	Mon Apr 11 01:18:35 2005 +0000
@@ -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 revision 1.30 of saveplace.el.
+
 2005-04-10  Richard M. Stallman  <rms@gnu.org>
 
 	* startup.el (fancy-splash-tail): Update copyright year.
diff -r 9e9819183ce3 -r 014fcf8d4038 lisp/bookmark.el
--- a/lisp/bookmark.el	Sun Apr 10 23:38:37 2005 +0000
+++ b/lisp/bookmark.el	Mon Apr 11 01:18:35 2005 +0000
@@ -1355,7 +1355,9 @@
 		((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)))))))