# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 771642557 0
# Node ID d385199b26b61e7910523d1f7d70f7d44aa26cc4
# Parent  e54617027a4702985c68a7b6a634d10b2d8f21f8
(Fsingle_key_description): Allow strings as keys.

diff -r e54617027a47 -r d385199b26b6 src/keymap.c
--- a/src/keymap.c	Wed Jun 15 00:24:54 1994 +0000
+++ b/src/keymap.c	Wed Jun 15 01:09:17 1994 +0000
@@ -1458,8 +1458,12 @@
     case Lisp_Symbol:		/* Function key or event-symbol */
       return Fsymbol_name (key);
 
+      /* Buffer names in the menubar can trigger this.  */
+    case Lisp_String:
+      return Fcopy_sequence (key);
+
     default:
-      error ("KEY must be an integer, cons, or symbol.");
+      error ("KEY must be an integer, cons, symbol, or string.");
     }
 }