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

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d2756d7fe7d..e26c1d56b79 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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))