comparison src/xmenu.c @ 15311:a9ed91ec0700

(single_submenu): Handle non-keymap lists like symbols.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 May 1996 20:10:02 +0000
parents e025990722ca
children 55a2ea0e640c
comparison
equal deleted inserted replaced
15310:f1e444468043 15311:a9ed91ec0700
1375 1375
1376 /* Loop over the given keymaps, making a pane for each map. 1376 /* Loop over the given keymaps, making a pane for each map.
1377 But don't make a pane that is empty--ignore that map instead. */ 1377 But don't make a pane that is empty--ignore that map instead. */
1378 for (i = 0; i < len; i++) 1378 for (i = 0; i < len; i++)
1379 { 1379 {
1380 if (SYMBOLP (mapvec[i])) 1380 if (SYMBOLP (mapvec[i])
1381 { 1381 || (CONSP (mapvec[i])
1382 && NILP (Fkeymapp (mapvec[i]))))
1383 {
1384 /* Here we have a command at top level in the menu bar
1385 as opposed to a submenu. */
1382 top_level_items = 1; 1386 top_level_items = 1;
1383 push_menu_pane (Qnil, Qnil); 1387 push_menu_pane (Qnil, Qnil);
1384 push_menu_item (item_name, Qt, item_key, mapvec[i], Qnil); 1388 push_menu_item (item_name, Qt, item_key, mapvec[i], Qnil);
1385 } 1389 }
1386 else 1390 else