Mercurial > emacs

comparison lisp/saveplace.el @ 90143:146c086df160

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-37 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 241-257) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 59-65) - Update from CVS - Merge from emacs--cvs-trunk--0 - (mm-string-to-multibyte): Use Gnus trunk definition.
author Miles Bader <miles@gnu.org>
date Thu, 14 Apr 2005 05:03:52 +0000
parents b637c617432f 25fbe49d4631
children 08185296b491
comparison
equal deleted inserted replaced
90142:627771f44771 90143:146c086df160
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)