From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 18 Nov 1994 05:29:08 +0000 (+0000)
Subject: (Fsingle_key_description): Use type test macros.
X-Git-Tag: emacs-19.34~5847
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e958fd9aca5fcf723f3552b109467c07a7f02649;p=emacs.git

(Fsingle_key_description): Use type test macros.
---

diff --git a/src/keymap.c b/src/keymap.c
index 3ed2a9f416a..66f05a53135 100644
--- 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 *