diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-10 04:24:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-10 04:24:29 +0000 |
| commit | 5875fdac00e495bb79fd9b0db1ea74dd238e8200 (patch) | |
| tree | aa8bcf6cc3c00e2b91175a35a76d3d7a64855cf6 /lisp | |
| parent | 09113ea2f133e50c001b69deb08530ed669085f9 (diff) | |
| download | emacs-5875fdac00e495bb79fd9b0db1ea74dd238e8200.tar.gz | |
(menu-bar-bookmark-map): Autoload the whole setup.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/bookmark.el | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index a44e2153aa0..247c418d872 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1254,46 +1254,51 @@ 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 (defvar menu-bar-bookmark-map (make-sparse-keymap "Bookmark functions.")) -;; make bookmarks appear toward the right side of the menu. -(if (boundp 'menu-bar-final-items) - (if menu-bar-final-items - (setq menu-bar-final-items - (cons 'bookmark menu-bar-final-items))) - (setq menu-bar-final-items '(bookmark))) +;;;###autoload +(fset 'menu-bar-bookmark-map (symbol-value 'menu-bar-bookmark-map)) +;;;###autoload (define-key menu-bar-bookmark-map [load] '("Load a bookmark file" . bookmark-load)) +;;;###autoload (define-key menu-bar-bookmark-map [write] '("Write \(to another file\)" . bookmark-write)) +;;;###autoload (define-key menu-bar-bookmark-map [save] '("Save \(in default file\)" . bookmark-save)) +;;;###autoload (define-key menu-bar-bookmark-map [edit] '("Edit Bookmark List" . list-bookmarks)) +;;;###autoload (define-key menu-bar-bookmark-map [delete] '("Delete bookmark" . bookmark-menu-bar-delete)) +;;;###autoload (define-key menu-bar-bookmark-map [rename] '("Rename bookmark" . bookmark-menu-bar-rename)) +;;;###autoload (define-key menu-bar-bookmark-map [locate] '("Insert location" . bookmark-menu-bar-locate)) +;;;###autoload (define-key menu-bar-bookmark-map [insert] '("Insert contents" . bookmark-menu-bar-insert)) +;;;###autoload (define-key menu-bar-bookmark-map [set] '("Set bookmark" . bookmark-set)) +;;;###autoload (define-key menu-bar-bookmark-map [jump] '("Jump to bookmark" . bookmark-menu-bar-jump)) - -;;;###autoload (autoload 'menu-bar-bookmark-map "bookmark" nil t 'keymap) (fset 'menu-bar-bookmark-map (symbol-value 'menu-bar-bookmark-map)) |