From: Richard M. Stallman Date: Sun, 10 Apr 2005 23:32:00 +0000 (+0000) Subject: (save-place-alist-to-file): Catch errors writing file. X-Git-Tag: ttn-vms-21-2-B4~1083 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b98170fcf2e7ecf5c3541118628e62b83013653;p=emacs.git (save-place-alist-to-file): Catch errors writing file. --- diff --git a/lisp/saveplace.el b/lisp/saveplace.el index e536e3c3237..cb61c8383b5 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -220,7 +220,9 @@ may have changed\) back to `save-place-alist'." ((eq 'nospecial save-place-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)) (message "Saving places to %s...done" file)))))