Mercurial > emacs
changeset 17341:995c8b7bf6df
(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Apr 1997 22:20:30 +0000 |
| parents | 64722b193f14 |
| children | c1e5198c8c92 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 18 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Tue Apr 08 19:05:57 1997 +0000 +++ b/lisp/menu-bar.el Tue Apr 08 22:20:30 1997 +0000 @@ -316,6 +316,24 @@ (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]