diff options
| -rw-r--r-- | lisp/menu-bar.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index e8f1f00e7f3..a8f72fcd9a8 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -25,7 +25,9 @@ | |||
| 25 | 25 | ||
| 26 | (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")) | 26 | (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")) |
| 27 | (defvar menu-bar-help-menu (make-sparse-keymap "Help")) | 27 | (defvar menu-bar-help-menu (make-sparse-keymap "Help")) |
| 28 | (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) | 28 | ;; Put Help item in help-menu-bar-map so it always goes last. |
| 29 | (setq help-menu-bar-map (make-sparse-keymap)) | ||
| 30 | (define-key help-menu-bar-map [help] (cons "Help" menu-bar-help-menu)) | ||
| 29 | (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) | 31 | (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |
| 30 | (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) | 32 | (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) |
| 31 | (defvar menu-bar-file-menu (make-sparse-keymap "File")) | 33 | (defvar menu-bar-file-menu (make-sparse-keymap "File")) |