emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]