[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c65a59a9e90 4/5: * Add few missing entries in 'comp-known-predica
From: |
Andrea Corallo |
Subject: |
master c65a59a9e90 4/5: * Add few missing entries in 'comp-known-predicates' |
Date: |
Wed, 21 Feb 2024 11:43:23 -0500 (EST) |
branch: master
commit c65a59a9e90524efa23d9151c31dad66a08ccb90
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
* Add few missing entries in 'comp-known-predicates'
* lisp/emacs-lisp/comp.el (comp-known-predicates): Add framep, markerp,
number-or-marker-p, overlayp, processp, subrp and windowp and sort it
alphabetically.
---
lisp/emacs-lisp/comp.el | 20 +++++++++++++-------
1 file changed, 13 insertions(+), 7 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6532fb8d1ce..a833bf5bfc4 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -191,28 +191,34 @@ Useful to hook into pass checkers.")
(defconst comp-known-predicates
'((arrayp . array)
(atom . atom)
- (characterp . fixnum)
- (booleanp . boolean)
(bool-vector-p . bool-vector)
+ (booleanp . boolean)
(bufferp . buffer)
- (natnump . (integer 0 *))
(char-table-p . char-table)
- (hash-table-p . hash-table)
+ (characterp . fixnum)
(consp . cons)
- (integerp . integer)
(floatp . float)
+ (framep . frame)
(functionp . (or function symbol))
+ (hash-table-p . hash-table)
+ (integer-or-marker-p . integer-or-marker)
(integerp . integer)
(keywordp . keyword)
(listp . list)
- (numberp . number)
+ (markerp . marker)
+ (natnump . (integer 0 *))
(null . null)
+ (number-or-marker-p . number-or-marker)
+ (numberp . number)
(numberp . number)
+ (overlayp . overlay)
+ (processp . process)
(sequencep . sequence)
(stringp . string)
+ (subrp . subr)
(symbolp . symbol)
(vectorp . vector)
- (integer-or-marker-p . integer-or-marker))
+ (windowp . window))
"Alist predicate -> matched type specifier.")
(defconst comp-known-predicates-h