diff src/keyboard.c @ 4088:bea0be5ab35e

(Vhelp_menu_bar_map): New var. (syms_of_keyboard): Set up Lisp var for it. (menu_bar_items): Use Vhelp_menu_bar_map.

--- a/src/keyboard.c	Wed Jul 14 16:36:25 1993 +0000
+++ b/src/keyboard.c	Wed Jul 14 16:49:30 1993 +0000
@@ -130,6 +130,9 @@
 /* Command to run when the help character follows a prefix key.  */
 Lisp_Object Vprefix_help_command;
 
+/* Keymap for items that appear at end of menu bar.  */
+Lisp_Object Vhelp_menu_bar_map;
+
 /* Character that causes a quit.  Normally C-g.
 
    If we are running on an ordinary terminal, this must be an ordinary
@@ -3199,6 +3202,8 @@
 	result = menu_bar_one_keymap (def, result);
     }
 
+  result = menu_bar_one_keymap (Vhelp_menu_bar_map, result);
+
   result = Fnreverse (result);
   Vinhibit_quit = oquit;
   return result;
@@ -5198,6 +5203,10 @@
   DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
     "t means menu bar, specified Lucid style, needs to be recomputed.");
   Vlucid_menu_bar_dirty_flag = Qnil;
+
+  DEFVAR_LISP ("help-menu-bar-map", &Vhelp_menu_bar_map,
+    "Keymap defining global menu items to appear at end of menu bar.");
+  Vhelp_menu_bar_map = Qnil;
 }
 
 keys_of_keyboard ()