branch: externals/transient
commit a961f42e1a58f9f812026fffce2ec71900c9d9f9
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--make-transient-map: Use value of inapt slot
---
lisp/transient.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 55a5d44c35..b1810e4eed 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2271,9 +2271,9 @@ of the corresponding object."
(cond ((not alt)
(define-key map kbd cmd))
((eq alt cmd))
- ((transient--inapt-suffix-p obj))
- ((and-let* ((obj (transient-suffix-object alt)))
- (transient--inapt-suffix-p obj))
+ ((oref obj inapt))
+ ((and-let* ((alt (transient-suffix-object alt)))
+ (oref alt inapt))
(define-key map kbd cmd))
(transient-detect-key-conflicts
(error "Cannot bind %S to %s and also %s"
