diff options
| author | Dave Love | 2003-09-10 17:52:58 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:52:58 +0000 |
| commit | fbd12f5147ba76c538f1f15433ba7088d7411a7d (patch) | |
| tree | 746ccc413b0eb6759db3c54a0bcbd9925924d402 | |
| parent | 9dbbce4494849ba2507d4e12ad3a1af794e6da98 (diff) | |
| download | emacs-fbd12f5147ba76c538f1f15433ba7088d7411a7d.tar.gz emacs-fbd12f5147ba76c538f1f15433ba7088d7411a7d.zip | |
(prin1-char): Use characterp.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index fa9661f54a5..a7dad3428f5 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -447,7 +447,7 @@ alternative printed representations that can be displayed." | |||
| 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 |