# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063216378 0
# Node ID af0933fdc21a201b59d65b774d47b08681d59efc
# Parent  db33d6285e97d1456915f990d55667a49c352d4c
(prin1-char): Use characterp.

diff -r db33d6285e97 -r af0933fdc21a lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Wed Sep 10 17:52:28 2003 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed Sep 10 17:52:58 2003 +0000
@@ -447,7 +447,7 @@
   "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