(Fsingle_key_description): Use type test macros.

diff --git a/src/keymap.c b/src/keymap.c
index 3ed2a9f416ae303a495de559af8b45c2b76edd4f..66f05a531354c35dfa16e4d4b9bae8014140b07c 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1494,22 +1494,17 @@ Control characters turn into C-whatever, etc.")
 
   key = EVENT_HEAD (key);
 
-  switch (XTYPE (key))
+  if (INTEGERP (key))          /* Normal character */
     {
-    case Lisp_Int:             /* Normal character */
       *push_key_description (XUINT (key), tem) = 0;
       return build_string (tem);
-
-    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, symbol, or string");
     }
+  else if (SYMBOLP (key))      /* Function key or event-symbol */
+    return Fsymbol_name (key);
+  else if (STRINGP (key))      /* Buffer names in the menubar.  */
+    return Fcopy_sequence (key);
+  else
+    error ("KEY must be an integer, cons, symbol, or string");
 }
 
 char *