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

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]