Mercurial > emacs
changeset 18700:cb17c9cd025b
(menu-bar-custom-menu): Add several more menu items.
Rename some. Delete "Update this menu".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 09 Jul 1997 19:03:09 +0000 |
| parents | c6cf53a7da72 |
| children | 9c7e0c926ed5 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Wed Jul 09 12:44:15 1997 +0000 +++ b/lisp/menu-bar.el Wed Jul 09 19:03:09 1997 +0000 @@ -335,18 +335,28 @@ (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))