Mercurial > emacs
changeset 89343:80a582c1d40d
(cl-make-type-test): Use characterp.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 07 Jan 2003 18:06:29 +0000 |
| parents | 8cf1af9a4468 |
| children | 1c9758957aae |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Tue Jan 07 18:06:20 2003 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Tue Jan 07 18:06:29 2003 +0000 @@ -2241,7 +2241,7 @@ ((eq type 'real) `(numberp ,val)) ((eq type 'fixnum) `(integerp ,val)) ;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef - ((memq type '(character string-char)) `(char-valid-p ,val)) + ((memq type '(character string-char)) `(characterp ,val)) (t (let* ((name (symbol-name type)) (namep (intern (concat name "p"))))