From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 11 May 2004 03:17:59 +0000 (+0000)
Subject: (prin1-char): Use eventp.
X-Git-Tag: ttn-vms-21-2-B4~6283
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a439904ec5545434105348abfb1fc686c34c691;p=emacs.git

(prin1-char): Use eventp.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 853498b0c8c..4057fe2968e 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -448,7 +448,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))
+       (eventp char)
        (let ((c (event-basic-type char)))
 	 (concat
 	  "?"