diff options
| -rw-r--r-- | lisp/saveplace.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 4d13ad3959c..a23454b0bb4 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el | |||
| @@ -290,7 +290,11 @@ may have changed) back to `save-place-alist'." | |||
| 290 | ;; adding hooks to it. | 290 | ;; adding hooks to it. |
| 291 | (with-current-buffer (get-buffer-create " *Saved Places*") | 291 | (with-current-buffer (get-buffer-create " *Saved Places*") |
| 292 | (delete-region (point-min) (point-max)) | 292 | (delete-region (point-min) (point-max)) |
| 293 | (insert-file-contents file) | 293 | ;; Make sure our 'coding:' cookie in the save-place |
| 294 | ;; file will take effect, in case the caller binds | ||
| 295 | ;; coding-system-for-read. | ||
| 296 | (let (coding-system-for-read) | ||
| 297 | (insert-file-contents file)) | ||
| 294 | (goto-char (point-min)) | 298 | (goto-char (point-min)) |
| 295 | (setq save-place-alist | 299 | (setq save-place-alist |
| 296 | (with-demoted-errors "Error reading save-place-file: %S" | 300 | (with-demoted-errors "Error reading save-place-file: %S" |