Account for shorthands when determining handle-switch-frame predicate

magit · Nov 18, 2023 · c55defa · c55defa
1 parent 3cd1de1
commit c55defa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)