Mercurial > emacs

diff src/xmenu.c @ 15311:a9ed91ec0700

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
line wrap: on
line diff
--- a/src/xmenu.c	Fri May 31 15:33:29 1996 +0000
+++ b/src/xmenu.c	Fri May 31 20:10:02 1996 +0000
@@ -1377,8 +1377,12 @@
      But don't make a pane that is empty--ignore that map instead.  */
   for (i = 0; i < len; i++)
     {
-      if (SYMBOLP (mapvec[i]))
+      if (SYMBOLP (mapvec[i])
+	  || (CONSP (mapvec[i])
+	      && NILP (Fkeymapp (mapvec[i]))))
 	{
+	  /* Here we have a command at top level in the menu bar
+	     as opposed to a submenu.  */
 	  top_level_items = 1;
 	  push_menu_pane (Qnil, Qnil);
 	  push_menu_item (item_name, Qt, item_key, mapvec[i], Qnil);