mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Don't clobber existing binding for menu-bar in global-map.

Browse source
This commit is contained in:
Roland McGrath 1993-09-06 22:48:00 +00:00
parent d6fc04a8ca
commit b132f2b1ce
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/menu-bar.el
View file

@ -23,7 +23,10 @@
;;; Code:
(define-key global-map [menu-bar] (make-sparse-keymap "menu-bar"))
;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
;; definitions made in loaddefs.el.
(or (lookup-key global-map [menu-bar])
(define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")))
(defvar menu-bar-help-menu (make-sparse-keymap "Help"))
;; Put Help item last.
(setq menu-bar-final-items '(help))