transient--match-button: Use key to match suffixes

Multiple suffixes may use the same command but not the same key.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/transient.el b/lisp/transient.el
index 5cbe8e0..c6591fe 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -5351,11 +5351,11 @@ See `forward-button' for information about N."
                 (equal (string-trim-left (button-label (button-at (point))))
                        description))))))
     (transient-suffix
-     (let ((command (oref object command)))
+     (let ((key (oref object key)))
        (lambda ()
          (let ((obj (get-text-property (point) 'button-data)))
            (and (cl-typep obj 'transient-suffix)
-                (eq (oref obj command) command))))))))
+                (eq (oref obj key) key))))))))
 
 ;;; Compatibility
 ;;;; Menu Isearch