# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1084245479 0
# Node ID ea0f46cadeb2917ebffb933814a3d2817809bb85
# Parent  30d4272bcc4bc30edcef647625f97d0d3411a2d6
(prin1-char): Use eventp.

diff -r 30d4272bcc4b -r ea0f46cadeb2 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Tue May 11 03:17:45 2004 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Tue May 11 03:17:59 2004 +0000
@@ -448,7 +448,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))
+       (eventp char)
        (let ((c (event-basic-type char)))
 	 (concat
 	  "?"