procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(menu-bar-custom-menu): Add several more menu items.

Browse source 
Rename some.  Delete "Update this menu".
This commit is contained in:
Richard M. Stallman 1997-07-09 19:03:09 +00:00
parent bc74e94e2b
commit b0f661deaa
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/menu-bar.el
View file

@ -335,18 +335,28 @@ Do the same for the keys of the same name."
(defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
(define-key menu-bar-custom-menu [Custom-menu-update]
'("Update This Menu" . Custom-menu-update))
(define-key menu-bar-custom-menu [customize-apropos-groups]
'("Apropos Groups..." . customize-apropos-groups))
(define-key menu-bar-custom-menu [customize-apropos-faces]
'("Apropos Faces..." . customize-apropos-faces))
(define-key menu-bar-custom-menu [customize-apropos-options]
'("Apropos Options..." . customize-apropos-options))
(define-key menu-bar-custom-menu [customize-apropos]
'("Apropos..." . customize-apropos))
(define-key menu-bar-custom-menu [separator-2]
'("--"))
(define-key menu-bar-custom-menu [customize-group]
'("Specific Group..." . customize-group))
(define-key menu-bar-custom-menu [customize-face]
'("Specific Face..." . customize-face))
(define-key menu-bar-custom-menu [customize-variable]
'("Specific Variable..." . customize-variable))
(define-key menu-bar-custom-menu [customize-option]
'("Specific Option..." . customize-option))
(define-key menu-bar-custom-menu [separator-3]
'("--"))
(define-key menu-bar-custom-menu [customize-browse]
'("Browse Hierarchy of User Options" . customize-browse))
'("Browse Customization Groups" . customize-browse))
(define-key menu-bar-custom-menu [customize]
'("Top-level Customization Group" . customize))
(define-key menu-bar-help-menu [emacs-version]
'("Show Version" . emacs-version))