mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-bookmark-map): Autoload the whole setup.

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-10 04:24:29 +00:00
parent 09113ea2f1
commit 5875fdac00
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/bookmark.el
View file

@ -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))