# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767581833 0
# Node ID b96377c0e49dea099fca423e1cee8c14bc6ffef6
# Parent  f0ecad45bb351abf9e54dd76528167a13844f49a
(Fsingle_key_description): Accept strings as keys since the buffer menu uses
them.

diff -r f0ecad45bb35 -r b96377c0e49d src/keymap.c
--- a/src/keymap.c	Thu Apr 28 22:27:06 1994 +0000
+++ b/src/keymap.c	Fri Apr 29 01:10:33 1994 +0000
@@ -1438,8 +1438,11 @@
     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, or symbol.");
+      error ("KEY must be an integer, cons, string, or symbol.");
     }
 }