diff options
author | Karl Fogel <[email protected]> | 1993-10-25 23:56:15 +0000 |
---|---|---|
committer | Karl Fogel <[email protected]> | 1993-10-25 23:56:15 +0000 |
commit | d23e2c3f349782cc825579aa472c572075467671 (patch) | |
tree | 1eaf4381bddd1bc7c3bb5c88b50ae7e264d020a5 /lisp/bookmark.el | |
parent | c1da5c031fbc3399105c806b2cd7a1bed99da3a3 (diff) |
upped version to 2.5
Got rid of ###autoload to put a bookmark menu on the menu-bar. Now it
will appear on the File menu, fourth item down. menu-bar.el will be
modified to do this.
(bookmark-load, bookmark-write-file): made enable-local-eval be nil
when loading a bookmark file, since bookmark context strings can
contain eval forms from the files in which the bookmarks are set, and
we don't want them evalled when .emacs-bkmrks is found!
upped version to 2.4.1 after doing this.
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r-- | lisp/bookmark.el | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 620b4ab603..cb52753686 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -5,7 +5,7 @@ ;; Author: Karl Fogel <[email protected]> ;; Maintainer: Karl Fogel <[email protected]> ;; Created: July, 1993 -;; Version: 2.4 +;; Version: 2.5 ;; Keywords: bookmarks, placeholders ;; This file is part of GNU Emacs. @@ -26,26 +26,40 @@ ;; Thanks to David Bremner <[email protected]> for thinking of and ;; then implementing the bookmark-current-bookmark idea. He even -;; sent *patches*, bless his soul... +;; sent *patches*, bless his soul... ;; Thanks to Gregory M. Saunders <[email protected]> for ;; fixing and improving bookmark-time-to-save-p. +;; Thanks go to Andrew V. Klein <[email protected]> for the code that +;; sorts the alist before presenting it to the user (in list-bookmarks +;; and the menu-bar). + ;; And much thanks to David Hughes <[email protected]> for many small ;; suggestions and the code to implement them (like ;; Bookmark-menu-check-position, and some of the Lucid compatibility ;; stuff). +;; Kudos (whatever they are) go to Jim Blandy <[email protected]> +;; for his eminently sensible suggestion to separate bookmark-jump +;; into bookmark-jump and bookmark-jump-noselect, which made many +;; other things cleaner as well. + ;; Thanks to Roland McGrath for encouragement and help with defining ;; autoloads on the menu-bar. +;; Jonathan Stigelman <[email protected]> gave patches for default +;; values in bookmark-jump and bookmark-set. Everybody please keep +;; all the keystrokes they save thereby and send them to him at the +;; end of each year :-) (No, seriously, thanks Jonathan!) + ;; Based on info-bookmark.el, by Karl Fogel and Ken Olstad ;; <[email protected]>. ;; LCD Archive Entry: ;; bookmark|Karl Fogel|[email protected]| ;; Setting bookmarks in files or directories, jumping to them later.| -;; 16-July-93|Version: 2.4|~/misc/bookmark.el.Z| +;; 16-July-93|Version: 2.5|~/misc/bookmark.el.Z| ;; Enough with the credits already, get on to the good stuff: @@ -666,7 +680,8 @@ for a file, defaulting to the file defined by variable (save-window-excursion (if (>= baud-rate 9600) (message (format "Saving bookmarks to file %s." file))) - (set-buffer (find-file-noselect file)) + (set-buffer (let ((enable-local-eval nil)) + (find-file-noselect file))) (goto-char (point-min)) (delete-region (point-min) (point-max)) (print bookmark-alist (current-buffer)) @@ -709,7 +724,8 @@ explicitly." (save-window-excursion (if (and (null no-msg) (>= baud-rate 9600)) (message (format "Loading bookmarks from %s..." file))) - (set-buffer (find-file-noselect file)) + (set-buffer (let ((enable-local-eval nil)) + (find-file-noselect file))) (goto-char (point-min)) (let ((blist (car (read-from-string (buffer-substring (point-min) (point-max)))))) @@ -1237,10 +1253,6 @@ one most recently used in this file, if any\)." ;; Thanks to Roland McGrath for fixing menubar.el so that the ;; following works, and for explaining what to do to make it work. -;;;###autoload -(define-key global-map [menu-bar bookmark] - '("Bookmarks" . menu-bar-bookmark-map)) - (defvar menu-bar-bookmark-map (make-sparse-keymap "Bookmark functions.")) ;; make bookmarks appear toward the right side of the menu. @@ -1289,4 +1301,3 @@ one most recently used in this file, if any\)." (provide 'bookmark) ;;; bookmark.el ends here - |