(prin1-char): Use characterp.

This commit is contained in:
Dave Love 2003-09-10 17:52:58 +00:00
parent 9dbbce4494
commit fbd12f5147

View file

@ -447,7 +447,7 @@ alternative printed representations that can be displayed."
"Return a string representing CHAR as a character rather than as an integer.
If CHAR is not a character, return nil."
(and (integerp char)
(char-valid-p (event-basic-type char))
(characterp (event-basic-type char))
(concat
"?"
(mapconcat