diff options
| author | Richard M. Stallman | 1993-10-26 03:29:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-10-26 03:29:54 +0000 |
| commit | 186a7127b2ba14b6b9266a55ca0e9918fdd2f4f1 (patch) | |
| tree | 6b0d39ea535f9e78dc0fe2546ff41d77a06e8beb | |
| parent | 9d4418957fe5c185c35a61ab583d63e1e82908fc (diff) | |
| download | emacs-186a7127b2ba14b6b9266a55ca0e9918fdd2f4f1.tar.gz emacs-186a7127b2ba14b6b9266a55ca0e9918fdd2f4f1.zip | |
(bookmark-load, bookmark-write-file):
Bind enable-local-variables instead of enable-local-eval.
| -rw-r--r-- | lisp/bookmark.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index cb52753686c..24dc1fc8f40 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -680,7 +680,7 @@ for a file, defaulting to the file defined by variable | |||
| 680 | (save-window-excursion | 680 | (save-window-excursion |
| 681 | (if (>= baud-rate 9600) | 681 | (if (>= baud-rate 9600) |
| 682 | (message (format "Saving bookmarks to file %s." file))) | 682 | (message (format "Saving bookmarks to file %s." file))) |
| 683 | (set-buffer (let ((enable-local-eval nil)) | 683 | (set-buffer (let ((enable-local-variables nil)) |
| 684 | (find-file-noselect file))) | 684 | (find-file-noselect file))) |
| 685 | (goto-char (point-min)) | 685 | (goto-char (point-min)) |
| 686 | (delete-region (point-min) (point-max)) | 686 | (delete-region (point-min) (point-max)) |
| @@ -724,7 +724,7 @@ explicitly." | |||
| 724 | (save-window-excursion | 724 | (save-window-excursion |
| 725 | (if (and (null no-msg) (>= baud-rate 9600)) | 725 | (if (and (null no-msg) (>= baud-rate 9600)) |
| 726 | (message (format "Loading bookmarks from %s..." file))) | 726 | (message (format "Loading bookmarks from %s..." file))) |
| 727 | (set-buffer (let ((enable-local-eval nil)) | 727 | (set-buffer (let ((enable-local-variables nil)) |
| 728 | (find-file-noselect file))) | 728 | (find-file-noselect file))) |
| 729 | (goto-char (point-min)) | 729 | (goto-char (point-min)) |
| 730 | (let ((blist (car (read-from-string | 730 | (let ((blist (car (read-from-string |