From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Jul 1993 05:40:01 +0000 (+0000)
Subject: (help-menu-bar-map): Put the Help item in this map.
X-Git-Tag: emacs-19.34~11750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddf70bd8ddb030f37e94016b235f8dd36cbd6dac;p=emacs.git

(help-menu-bar-map): Put the Help item in this map.
---

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 @@
 
 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar"))
 (defvar menu-bar-help-menu (make-sparse-keymap "Help"))
-(define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu))
+;; Put Help item in help-menu-bar-map so it always goes last.
+(setq help-menu-bar-map (make-sparse-keymap))
+(define-key help-menu-bar-map [help] (cons "Help" menu-bar-help-menu))
 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu))
 (defvar menu-bar-file-menu (make-sparse-keymap "File"))