# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768169541 0
# Node ID 516dd16e201715b60771ff96580f944b614540ea
# Parent  1c2342e0edaec907c7100aa2d7b210f522af160c
(describe_map): Ignore bindings for all except symbols and integers.

diff -r 1c2342e0edae -r 516dd16e2017 src/keymap.c
--- a/src/keymap.c	Thu May 05 19:31:09 1994 +0000
+++ b/src/keymap.c	Thu May 05 20:25:41 1994 +0000
@@ -2073,9 +2073,12 @@
       else if (CONSP (XCONS (tail)->car))
 	{
 	  event = XCONS (XCONS (tail)->car)->car;
-	  /* Don't show individual items in the Buffers menu.  */
-	  if (STRINGP (event))
+
+	  /* Ignore bindings whose "keys" are not really valid events.
+	     (We get these in the frames and buffers menu.)  */
+	  if (! (SYMBOLP (event) || INTEGERP (event)))
 	    continue;
+
 	  definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
 
 	  /* Don't show undefined commands or suppressed commands.  */