# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 785136548 0
# Node ID b83150a8020dcd684f9dac5506409e1600cd97d9
# Parent  10fc4417831d2d9e4a58733f33cb2e20a6dd4f71
(Fsingle_key_description): Use type test macros.

diff -r 10fc4417831d -r b83150a8020d src/keymap.c
--- a/src/keymap.c	Fri Nov 18 05:22:33 1994 +0000
+++ b/src/keymap.c	Fri Nov 18 05:29:08 1994 +0000
@@ -1494,22 +1494,17 @@
 
   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 *