[elpa] externals/transient 41cbf49529 118/366: transient--insert-suffix: Fix removing LOC

[Jonas Bernoulli]

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

    transient--insert-suffix: Fix removing LOC
    
    This was broken in multiple ways.
---
 lisp/transient.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index bcb57ddc0e..e0489c98d6 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -884,10 +884,9 @@ example, sets a variable use `define-infix-command' 
instead.
      (t
       (when (and (listp suffix)
                  (listp elt))
-        (let ((key (or (plist-get elt :key)
-                       (transient--command-key (plist-get elt :command)))))
+        (let ((key (transient--spec-key suf)))
           (if (equal (transient--kbd key)
-                     (transient--kbd (plist-get (nth 2 elt) :key)))
+                     (transient--kbd (transient--spec-key elt)))
               (setq action 'replace)
             (transient-remove-suffix prefix key))))
       (cl-ecase action
@@ -1017,6 +1016,12 @@ See info node `(transient)Modifying Existing 
Transients'."
     (setq keys (kbd keys)))
   keys)
 
+(defun transient--spec-key (spec)
+  (let ((plist (nth 2 spec)))
+    (or (plist-get plist :key)
+        (transient--command-key
+         (plist-get plist :command)))))
+
 (defun transient--command-key (cmd)
   (when-let ((obj (get cmd 'transient--suffix)))
     (cond ((slot-boundp obj 'key)