Commit d23e2c3f authored by Karl Fogel's avatar Karl Fogel
Browse files

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.
parent c1da5c03
......@@ -5,7 +5,7 @@
;; Author: Karl Fogel <>
;; Maintainer: Karl Fogel <>
;; 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 <> 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 <> for
;; fixing and improving bookmark-time-to-save-p.
;; Thanks go to Andrew V. Klein <> 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 <> 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 <>
;; 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 <> 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
;; <>.
;; LCD Archive Entry:
;; bookmark|Karl Fogel||
;; 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
(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."
(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.
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment