From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Apr 1997 22:20:30 +0000 (+0000)
Subject: (menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
X-Git-Tag: emacs-20.1~2604
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9f53ffbf8a25e9d58aef06bfd5782c3be002cad;p=emacs.git

(menu-bar-custom-menu): New variable; add it as a submenu of the Help menu.
---

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]