diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2005-04-11 01:18:35 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2005-04-11 01:18:35 +0000 |
| commit | 9552bee8c6e7c5ee16ca60cddebaebdf5d238e05 (patch) | |
| tree | 6f2b1802782d5dc12bd9dd92f8723a56a6bcbfa1 /lisp/bookmark.el | |
| parent | 6695c528d4bf53c198befee30831b0e67c1c32d5 (diff) | |
| download | emacs-9552bee8c6e7c5ee16ca60cddebaebdf5d238e05.tar.gz | |
(bookmark-write-file): Catch errors writing file.
This is the same change as saveplace.el at 2005-04-10T23:32:00Z!rms@gnu.org.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 4 |
1 files changed, 3 insertions, 1 deletions
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))))))) |