Mercurial > emacs

comparison lisp/saveplace.el @ 90188:01137c1fdbe9

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-57 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 324-352) - Merge from gnus--rel--5.10 - Update from CVS - etc/emacs-buffer.gdb: Remove RCS keywords * gnus--rel--5.10 (patch 70-79) - Update from CVS - Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Mon, 06 Jun 2005 02:39:45 +0000
parents 08185296b491 8641f46cf18f
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90187:587ea1490d70 90188:01137c1fdbe9
220 ((eq 'never save-place-version-control) 'never) 220 ((eq 'never save-place-version-control) 'never)
221 ((eq 'nospecial save-place-version-control) version-control) 221 ((eq 'nospecial save-place-version-control) version-control)
222 (t 222 (t
223 t)))) 223 t))))
224 (condition-case nil 224 (condition-case nil
225 (write-file file) 225 ;; Don't use write-file; we don't want this buffer to visit it.
226 (write-region (point-min) (point-max) file)
226 (file-error (message "Can't write %s" file))) 227 (file-error (message "Can't write %s" file)))
227 (kill-buffer (current-buffer)) 228 (kill-buffer (current-buffer))
228 (message "Saving places to %s...done" file))))) 229 (message "Saving places to %s...done" file)))))
229 230
230 (defun load-save-place-alist-from-file () 231 (defun load-save-place-alist-from-file ()