Commit a9f53ffb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent e1b490ca
......@@ -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]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment