mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-26 07:00:35 -08:00
Code Issues Projects Releases Wiki Activity

(menu_bar_items, tool_bar_items):

Browse source 
Set `autoload' when looking up `tool-bar' or `menu-bar' submap.
This commit is contained in:
Stefan Monnier 2000-12-13 14:12:02 +00:00
parent f7f8bb6913
commit 341a09cf9d
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/keyboard.c
View file

@ -6306,8 +6306,8 @@ menu_bar_items (old)
for (mapno = nmaps - 1; mapno >= 0; mapno--)
if (!NILP (maps[mapno]))
{
def = get_keymap (access_keymap (maps[mapno], Qmenu_bar, 1, 0, 0),
0, 0);
def = get_keymap (access_keymap (maps[mapno], Qmenu_bar, 1, 0, 1),
0, 1);
if (CONSP (def))
menu_bar_one_keymap (def);
}
@ -6959,8 +6959,7 @@ tool_bar_items (reuse, nitems)
{
Lisp_Object keymap;
/* Why set the `noinherit' flag ? -sm */
keymap = get_keymap (access_keymap (maps[i], Qtool_bar, 1, 1, 0), 0, 0);
keymap = get_keymap (access_keymap (maps[i], Qtool_bar, 1, 0, 1), 0, 1);
if (CONSP (keymap))
{
Lisp_Object tail;