diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-08-16 14:07:29 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-08-16 14:07:29 +0200 |
| commit | a961f42e1a58f9f812026fffce2ec71900c9d9f9 (patch) | |
| tree | 7f4d4bc6fabd1921fb996b638d9b086729c7a993 | |
| parent | fed866ba460482fd32cdd14f9ec21e4223952193 (diff) | |
transient--make-transient-map: Use value of inapt slot
| -rw-r--r-- | lisp/transient.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 55a5d44..b1810e4 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" |