mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(menu-bar-custom-menu):

Browse Source 
New item `Browse All Customization'.
Rename and shuffle other items.
`Specify Group...' is now customize-group.
This commit is contained in:
Richard M. Stallman 1997-05-01 22:21:19 +00:00
parent ad7f9d12c8
commit c9a86e717a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/menu-bar.el
View File

@ -321,16 +321,18 @@ 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]
'("Apropos..." . customize-apropos))
(define-key menu-bar-custom-menu [customize-variable]
'("Variable..." . customize-variable))
(define-key menu-bar-custom-menu [customize-group]
'("Specific Group..." . customize-group))
(define-key menu-bar-custom-menu [customize-face]
'("Face..." . 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]
'("Group..." . customize))
(define-key menu-bar-custom-menu [custom-menu-update]
'("Update menu..." . custom-menu-update))
'("Browse Hierarchy of User Options" . customize))
(define-key menu-bar-help-menu [customize-menu]
(cons "Customize" menu-bar-custom-menu))