(prin1-char): Use characterp.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index fa9661f54a50c595a8e7b3fd07bac5aaae085e77..a7dad3428f5c47ebc7b30d7fa4b139bbb2e4c888 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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