branch: externals/transient
commit 250a3c34fd308ba4e51f0d5edf2e0b20edca3715
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--match-button: Use key to match suffixes
Multiple suffixes may use the same command but not the same key.
---
lisp/transient.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 5cbe8e063c..c6591fe1fe 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
