diff options
author | Karl Heuer <[email protected]> | 1994-11-18 05:29:08 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-11-18 05:29:08 +0000 |
commit | e958fd9aca5fcf723f3552b109467c07a7f02649 (patch) | |
tree | fa46e7fd0364c619e0ad5d633c2d1f4ebb099bf1 /src | |
parent | 9e539a3cc3a9d0a7cebb310cefdb01af8fb334a2 (diff) |
(Fsingle_key_description): Use type test macros.
Diffstat (limited to 'src')
-rw-r--r-- | src/keymap.c | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/src/keymap.c b/src/keymap.c index 3ed2a9f416..66f05a5313 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 * |