[elpa] externals/transient c1df3b2121 170/366: Ensure we use symbols in a few more places

[Jonas Bernoulli]

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

    Ensure we use symbols in a few more places
---
 lisp/transient.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 7d80fb8599..a818b946ce 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1442,8 +1442,9 @@ of the corresponding object.")
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map transient-predicate-map)
     (dolist (obj transient--suffixes)
-      (let* ((cmd (transient--suffix-command obj))
-             (sub-prefix (and (symbolp cmd) (get cmd 'transient--prefix))))
+      (let* ((cmd (oref obj command))
+             (sub-prefix (and (symbolp cmd) (get cmd 'transient--prefix)))
+             (cmd (transient--suffix-command cmd)))
         (cond
          ((slot-boundp obj 'transient)
           (define-key map (vector cmd)
@@ -1694,7 +1695,8 @@ EDIT may be non-nil."
    (t
     (setq transient--exitp nil)
     (when (eq (if-let ((fn (or (lookup-key transient--predicate-map
-                                           (vector this-original-command))
+                                           (vector (transient--suffix-command
+                                                    this-original-command)))
                                (oref transient--prefix transient-non-suffix))))
                   (let ((action (funcall fn)))
                     (when (eq action transient--exit)
@@ -1972,7 +1974,8 @@ to `transient--do-warn'."
                        'face 'font-lock-warning-face)
            (propertize "C-g" 'face 'transient-key)
            (propertize "?"   'face 'transient-key)
-           (propertize (symbol-name this-original-command)
+           (propertize (symbol-name (transient--suffix-command
+                                     this-original-command))
                        'face 'font-lock-warning-face)))
 
 (defun transient-toggle-common ()