Mercurial > emacs
comparison lisp/saveplace.el @ 62862:8641f46cf18f
(save-place-alist-to-file): Write the file using write-region.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 May 2005 08:36:26 +0000 |
| parents | d4abeb773782 |
| children | 6fb026ad601f 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62861:0d5825b4e125 | 62862:8641f46cf18f |
|---|---|
| 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 () |