From: Karl Fogel Date: Mon, 11 Apr 2005 01:18:35 +0000 (+0000) Subject: (bookmark-write-file): Catch errors writing file. X-Git-Tag: ttn-vms-21-2-B4~1080 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9552bee8c6e7c5ee16ca60cddebaebdf5d238e05;p=emacs.git (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 1ddf9f5594c..c299c1cf77f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-10 Karl Fogel + + * 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 * 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)))))))