1 files changed, 4 insertions, 1 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 44563286e72..55745ffcb39 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1438,8 +1438,11 @@ 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, or symbol.");
+      error ("KEY must be an integer, cons, string, or symbol.");
     }
 }