Mercurial > emacs
changeset 61454:014fcf8d4038
(bookmark-write-file): Catch errors writing file.
This is the same change as revision 1.30 of saveplace.el.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Mon, 11 Apr 2005 01:18:35 +0000 |
| parents | 9e9819183ce3 |
| children | 995a77d66d87 9deb6323655c |
| files | lisp/ChangeLog lisp/bookmark.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))))))