diff options
| -rw-r--r-- | lisp/menu-bar.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 952a9af1a9e..ba07f0999b2 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -30,9 +30,11 @@ | |||
| 30 | (defvar menu-bar-help-menu (make-sparse-keymap "Help")) | 30 | (defvar menu-bar-help-menu (make-sparse-keymap "Help")) |
| 31 | 31 | ||
| 32 | ;; Force Help item to come last, after the major mode's own items. | 32 | ;; Force Help item to come last, after the major mode's own items. |
| 33 | (setq menu-bar-final-items '(help)) | 33 | ;; The symbol used to be called `help', but that gets confused with the |
| 34 | ;; help key. | ||
| 35 | (setq menu-bar-final-items '(help-menu)) | ||
| 34 | 36 | ||
| 35 | (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) | 37 | (define-key global-map [menu-bar help-menu] (cons "Help" menu-bar-help-menu)) |
| 36 | (defvar menu-bar-search-menu (make-sparse-keymap "Search")) | 38 | (defvar menu-bar-search-menu (make-sparse-keymap "Search")) |
| 37 | (define-key global-map [menu-bar search] (cons "Search" menu-bar-search-menu)) | 39 | (define-key global-map [menu-bar search] (cons "Search" menu-bar-search-menu)) |
| 38 | (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) | 40 | (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) |