From 6b98170fcf2e7ecf5c3541118628e62b83013653 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Apr 2005 23:32:00 +0000 Subject: [PATCH] (save-place-alist-to-file): Catch errors writing file. --- lisp/saveplace.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))))) -- 2.39.5