Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 89491:af0933fdc21a
(prin1-char): Use characterp.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 10 Sep 2003 17:52:58 +0000 |
| parents | 375f2633d815 |
| children | 68c22ea6027c |
comparison
equal
deleted
inserted
replaced
| 89490:db33d6285e97 | 89491:af0933fdc21a |
|---|---|
| 445 | 445 |
| 446 (defun prin1-char (char) | 446 (defun prin1-char (char) |
| 447 "Return a string representing CHAR as a character rather than as an integer. | 447 "Return a string representing CHAR as a character rather than as an integer. |
| 448 If CHAR is not a character, return nil." | 448 If CHAR is not a character, return nil." |
| 449 (and (integerp char) | 449 (and (integerp char) |
| 450 (char-valid-p (event-basic-type char)) | 450 (characterp (event-basic-type char)) |
| 451 (concat | 451 (concat |
| 452 "?" | 452 "?" |
| 453 (mapconcat | 453 (mapconcat |
| 454 (lambda (modif) | 454 (lambda (modif) |
| 455 (cond ((eq modif 'super) "\\s-") | 455 (cond ((eq modif 'super) "\\s-") |