Mercurial > emacs
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 |