Mercurial > emacs
comparison lisp/saveplace.el @ 37408:33067598c22c
* saveplace.el (save-place-alist-to-file): Removed no-effect code
that inserted file content only to delete it immediately.
Probably a cut-and-paste bug. Thanks to Juanma Barranquero
<lektu@uol.com.br> for the patch.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Thu, 19 Apr 2001 22:55:19 +0000 |
| parents | 2b5cebd0da5e |
| children | b304c4a260bd |
comparison
equal
deleted
inserted
replaced
| 37407:c8fb52b4feff | 37408:33067598c22c |
|---|---|
| 141 (let ((file (expand-file-name save-place-file))) | 141 (let ((file (expand-file-name save-place-file))) |
| 142 (save-excursion | 142 (save-excursion |
| 143 (message "Saving places to %s..." file) | 143 (message "Saving places to %s..." file) |
| 144 (set-buffer (get-buffer-create " *Saved Places*")) | 144 (set-buffer (get-buffer-create " *Saved Places*")) |
| 145 (delete-region (point-min) (point-max)) | 145 (delete-region (point-min) (point-max)) |
| 146 (if (file-readable-p file) | |
| 147 (insert-file-contents file)) | |
| 148 (delete-region (point-min) (point-max)) | |
| 149 (goto-char (point-min)) | |
| 150 (print save-place-alist (current-buffer)) | 146 (print save-place-alist (current-buffer)) |
| 151 (let ((version-control | 147 (let ((version-control |
| 152 (cond | 148 (cond |
| 153 ((null save-place-version-control) nil) | 149 ((null save-place-version-control) nil) |
| 154 ((eq 'never save-place-version-control) 'never) | 150 ((eq 'never save-place-version-control) 'never) |