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.

1 files changed, 21 insertions, 10 deletions

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 620b4ab6032..cb52753686c 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -5,7 +5,7 @@
 ;; Author: Karl Fogel <kfogel@cs.oberlin.edu>
 ;; Maintainer: Karl Fogel <kfogel@cs.oberlin.edu>
 ;; 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 <bremner@cs.sfu.ca> 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 <saunders@cis.ohio-state.edu> for
 ;; fixing and improving bookmark-time-to-save-p.
 
+;; Thanks go to Andrew V. Klein <avk@rtsg.mot.com> 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 <djh@harston.cv.com> 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 <jimb@cs.oberlin.edu>
+;; 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 <stig@key.amdahl.com> 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
 ;; <olstad@msc.edu>.
 
 ;; LCD Archive Entry:
 ;; bookmark|Karl Fogel|kfogel@cs.oberlin.edu|
 ;; 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
-