diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-12-04 08:28:39 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-12-04 08:28:39 -0500 |
| commit | 3a9df7589ae189fc34a5fab98e82d85d2d40433f (patch) | |
| tree | d9d28bbc0d9ee62e26c7bc07f5a5308395d0ec8e /lisp/emacs-lisp/cl-macs.el | |
| parent | 9bfcd87c04c25f9c76c8617853d3d03531259232 (diff) | |
| download | emacs-3a9df7589ae189fc34a5fab98e82d85d2d40433f.tar.gz | |
* lisp/emacs-lisp/cl-macs.el (character): Can't be negative
Fixes (bug#21701)
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 09d2d3f9a5e..c8aad3aafc8 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2885,7 +2885,7 @@ Of course, we really can't know that for sure, so it's just a heuristic." (put 'real 'cl-deftype-satisfies #'numberp) (put 'fixnum 'cl-deftype-satisfies #'integerp) (put 'base-char 'cl-deftype-satisfies #'characterp) -(put 'character 'cl-deftype-satisfies #'integerp) +(put 'character 'cl-deftype-satisfies #'natnump) ;;;###autoload |