transient--resolve-pre-command: Optionally resolve boolean as well

This assumes that we are dealing with the predicate of a non-suffix.
For other types of commands resolving a boolean is more complex and
handled elsewhere.

1 files changed, 9 insertions, 9 deletions

diff --git a/lisp/transient.el b/lisp/transient.el
index 1b3be62..d959400 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2521,15 +2521,15 @@ nil) then do nothing."
   (or (ignore-errors
         (lookup-key transient--predicate-map (vector cmd)))
       (and (not suffix-only)
-           (let ((pred (transient--resolve-pre-command
-                        (oref transient--prefix transient-non-suffix))))
-             (pcase pred
-               ('t   #'transient--do-stay)
-               ('nil #'transient--do-warn)
-               (_    pred))))))
-
-(defun transient--resolve-pre-command (pre)
-  (cond ((booleanp pre) pre)
+           (transient--resolve-pre-command
+            (oref transient--prefix transient-non-suffix)
+            t))))
+
+(defun transient--resolve-pre-command (pre &optional resolve-boolean)
+  (cond ((booleanp pre)
+         (if resolve-boolean
+             (if pre #'transient--do-stay #'transient--do-warn)
+           pre))
         ((string-match-p "--do-" (symbol-name pre)) pre)
         ((let ((sym (intern (format "transient--do-%s" pre))))
            (if (functionp sym) sym pre)))))