Mercurial > emacs
changeset 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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 Jul 1993 16:49:30 +0000 |
| parents | bdecedbd64db |
| children | 410395998370 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()