From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 29 Apr 1994 06:05:19 +0000 (+0000)
Subject: (Fsingle_key_description): Undo previous change.
X-Git-Tag: emacs-19.34~8662
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c96dcc01cd149407a36cfefb8123b95c552d0b95;p=emacs.git

(Fsingle_key_description): Undo previous change.
(describe_map): Skip string entries.
---

diff --git a/src/keymap.c b/src/keymap.c
index 7169e6cb49f..6d535751dc9 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1438,11 +1438,8 @@ Control characters turn into C-whatever, etc.")
     case Lisp_Symbol:		/* Function key or event-symbol */
       return Fsymbol_name (key);
 
-    case Lisp_String:
-      return key;
-
     default:
-      error ("KEY must be an integer, cons, string, or symbol.");
+      error ("KEY must be an integer, cons, or symbol.");
     }
 }
 
@@ -2076,6 +2073,9 @@ describe_map (map, keys, elt_describer, partial, shadow, seen)
       else if (CONSP (XCONS (tail)->car))
 	{
 	  event = XCONS (XCONS (tail)->car)->car;
+	  /* Don't show individual items in the Buffers menu.  */
+	  if (STRINGP (event))
+	    continue;
 	  definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
 
 	  /* Don't show undefined commands or suppressed commands.  */