From 7a439904ec5545434105348abfb1fc686c34c691 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 11 May 2004 03:17:59 +0000 Subject: [PATCH] (prin1-char): Use eventp. --- lisp/emacs-lisp/lisp-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 "?" -- 2.39.2