diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-08 22:20:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-08 22:20:30 +0000 |
| commit | a9f53ffbf8a25e9d58aef06bfd5782c3be002cad (patch) | |
| tree | e1594d111956695da9c0a0a6bdaf05a3b8d7261c /lisp/menu-bar.el | |
| parent | e1b490ca360cd3d618616a706217afcd6a9022e2 (diff) | |
| download | emacs-a9f53ffbf8a25e9d58aef06bfd5782c3be002cad.tar.gz | |
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 9474e08a4b0..4ca22d62522 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -316,6 +316,24 @@ Do the same for the keys of the same name." (define-key global-map [copy] 'clipboard-kill-ring-save) (define-key global-map [paste] 'clipboard-yank)) + +;;; Menu support + +(defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) + +(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-face] + '("Face..." . customize-face)) +(define-key menu-bar-custom-menu [customize] + '("Group..." . customize)) +(define-key menu-bar-custom-menu [custom-menu-update] + '("Update menu..." . custom-menu-update)) + +(define-key menu-bar-help-menu [customize-menu] + (cons "Customize" menu-bar-custom-menu)) (define-key menu-bar-help-menu [emacs-version] '("Show Version" . emacs-version)) (define-key menu-bar-help-menu [report-emacs-bug] |