Mercurial > emacs
comparison lisp/saveplace.el @ 72938:4ec3fdbaa1ab
(load-save-place-alist-from-file): Use expanded name in both messages.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 16 Sep 2006 18:22:01 +0000 |
| parents | 3bd95f4f2941 |
| children | e3694f1cb928 b5c13d1564a9 |
comparison
equal
deleted
inserted
replaced
| 72937:1eb51770045b | 72938:4ec3fdbaa1ab |
|---|---|
| 236 (let ((file (expand-file-name save-place-file))) | 236 (let ((file (expand-file-name save-place-file))) |
| 237 ;; make sure that the alist does not get overwritten, and then | 237 ;; make sure that the alist does not get overwritten, and then |
| 238 ;; load it if it exists: | 238 ;; load it if it exists: |
| 239 (if (file-readable-p file) | 239 (if (file-readable-p file) |
| 240 (save-excursion | 240 (save-excursion |
| 241 (message "Loading places from %s..." save-place-file) | 241 (message "Loading places from %s..." file) |
| 242 ;; don't want to use find-file because we have been | 242 ;; don't want to use find-file because we have been |
| 243 ;; adding hooks to it. | 243 ;; adding hooks to it. |
| 244 (set-buffer (get-buffer-create " *Saved Places*")) | 244 (set-buffer (get-buffer-create " *Saved Places*")) |
| 245 (delete-region (point-min) (point-max)) | 245 (delete-region (point-min) (point-max)) |
| 246 (insert-file-contents file) | 246 (insert-file-contents file) |