Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
This is the same change as saveplace.el at 2005-04-10T23:32:00Z!rms@gnu.org.
This commit is contained in:
Karl Fogel 2005-04-11 01:18:35 +00:00
parent 6695c528d4
commit 9552bee8c6
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

4
lisp/bookmark.el
View file

@ -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)))))))