[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient ed1c5826f0 2/3: transient--insert-group(colum
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient ed1c5826f0 2/3: transient--insert-group(columns): Bind transient--pending-group |
Date: |
Sat, 16 Dec 2023 14:20:24 -0500 (EST) |
branch: externals/transient
commit ed1c5826f0920d68d6f42c986d6721f854342984
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient--insert-group(columns): Bind transient--pending-group
Bind it to the column group for which a suffix is currently being
inserted.
Fixes #269.
---
lisp/transient.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index f17323bec4..25376852e9 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3623,7 +3623,8 @@ have a history of their own.")
(lambda (column)
(transient--maybe-pad-keys column group)
(transient-with-shadowed-buffer
- (let ((rows (mapcar #'transient-format (oref column suffixes))))
+ (let* ((transient--pending-group column)
+ (rows (mapcar #'transient-format (oref column
suffixes))))
(when-let ((desc (transient-format-description column)))
(push desc rows))
(flatten-tree rows))))