mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-13 09:32:47 +00:00
* lisp/emacs-lisp/comp.el (comp-known-predicates): Some more tweaking.
This commit is contained in:
parent
43d0e8483e
commit
a3f2373bfb
@ -503,15 +503,15 @@ Useful to hook into pass checkers.")
|
||||
(defconst comp-known-predicates
|
||||
'((arrayp . array)
|
||||
(atom . atom)
|
||||
(characterp . base-char)
|
||||
(characterp . fixnum)
|
||||
(booleanp . boolean)
|
||||
(bool-vector-p . bool-vector)
|
||||
(bufferp . buffer)
|
||||
(natnump . character)
|
||||
(natnump . (integer 0 *))
|
||||
(char-table-p . char-table)
|
||||
(hash-table-p . hash-table)
|
||||
(consp . cons)
|
||||
(integerp . fixnum)
|
||||
(integerp . integer)
|
||||
(floatp . float)
|
||||
(functionp . (or function symbol))
|
||||
(integerp . integer)
|
||||
@ -519,7 +519,7 @@ Useful to hook into pass checkers.")
|
||||
(listp . list)
|
||||
(numberp . number)
|
||||
(null . null)
|
||||
(numberp . real)
|
||||
(numberp . number)
|
||||
(sequencep . sequence)
|
||||
(stringp . string)
|
||||
(symbolp . symbol)
|
||||
|
Loading…
Reference in New Issue
Block a user