[elpa] externals/transient c55defa145 01/17: Account for shorthands when determining handle-switch-frame predicate

[Jonas Bernoulli]

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

    Account for shorthands when determining handle-switch-frame predicate
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f71f3e90b3..760110163a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1763,7 +1763,8 @@ of the corresponding object."
          (return (eq default t))
          (map (make-sparse-keymap)))
     (set-keymap-parent map transient-predicate-map)
-    (when (memq (oref transient--prefix transient-non-suffix)
+    (when (memq (transient--resolve-pre-command
+                 (oref transient--prefix transient-non-suffix))
                 '(nil transient--do-warn transient--do-noop))
       (define-key map [handle-switch-frame] #'transient--do-suspend))
     (dolist (obj transient--suffixes)