procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(prin1-char): Use eventp.

Browse source
This commit is contained in:
Stefan Monnier 2004-05-11 03:17:59 +00:00
parent 7a2937ce8a
commit 7a439904ec
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/lisp-mode.el
View file

@ -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
"?"