[elpa] externals/transient f2ef69cfcc 176/366: transient--get-predicate-for: New function

[Jonas Bernoulli]

branch: externals/transient
commit f2ef69cfcc195d20c93f33e1a54cee15a6569007
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--get-predicate-for: New function
---
 lisp/transient.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f2cbbd2ea9..8c1a2ccb99 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1724,10 +1724,8 @@ EDIT may be non-nil."
     (setq this-command 'transient-set-level))
    (t
     (setq transient--exitp nil)
-    (when (eq (if-let ((fn (or (lookup-key transient--predicate-map
-                                           (vector (transient--suffix-symbol
-                                                    this-original-command)))
-                               (oref transient--prefix transient-non-suffix))))
+    (when (eq (if-let ((fn (transient--get-predicate-for
+                            this-original-command)))
                   (let ((action (funcall fn)))
                     (when (eq action transient--exit)
                       (setq transient--exitp (or transient--exitp t)))
@@ -1741,6 +1739,11 @@ EDIT may be non-nil."
               transient--exit)
       (transient--pre-exit)))))
 
+(defun transient--get-predicate-for (cmd)
+  (or (lookup-key transient--predicate-map
+                  (vector (transient--suffix-symbol cmd)))
+      (oref transient--prefix transient-non-suffix)))
+
 (defun transient--pre-exit ()
   (transient--debug 'pre-exit)
   (transient--delete-window)