Mercurial > emacs

comparison lisp/saveplace.el @ 61451:25fbe49d4631

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-place-alist-to-file): Catch errors writing file.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Apr 2005 23:32:00 +0000
parents ade229a259cc
children d4abeb773782 146c086df160
comparison
equal deleted inserted replaced
61450:4ccc4c9adf16 61451:25fbe49d4631
218 ((null save-place-version-control) nil) 218 ((null save-place-version-control) nil)
219 ((eq 'never save-place-version-control) 'never) 219 ((eq 'never save-place-version-control) 'never)
220 ((eq 'nospecial save-place-version-control) version-control) 220 ((eq 'nospecial save-place-version-control) version-control)
221 (t 221 (t
222 t)))) 222 t))))
223 (write-file file) 223 (condition-case nil
224 (write-file file)
225 (file-error (message "Can't write %s" file)))
224 (kill-buffer (current-buffer)) 226 (kill-buffer (current-buffer))
225 (message "Saving places to %s...done" file))))) 227 (message "Saving places to %s...done" file)))))
226 228
227 (defun load-save-place-alist-from-file () 229 (defun load-save-place-alist-from-file ()
228 (if (not save-place-loaded) 230 (if (not save-place-loaded)