comparison lisp/emacs-lisp/lisp-mode.el @ 55521:ea0f46cadeb2

(prin1-char): Use eventp.

55520:30d4272bcc4b

(defun prin1-char (char)
  "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))
       (let ((c (event-basic-type char)))
	 (concat
	  "?"
	  (mapconcat
	   (lambda (modif)

55521:ea0f46cadeb2

(defun prin1-char (char)
  "Return a string representing CHAR as a character rather than as an integer.
If CHAR is not a character, return nil."
  (and (integerp char)
       (eventp char)
       (let ((c (event-basic-type char)))
	 (concat
	  "?"
	  (mapconcat
	   (lambda (modif)