branch: externals/transient
commit 70e8dc80b293707166ae95e916aea8c0293c837e
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--pending-group: New variable
Doing like this has the drawback that primary methods cannot
use this variable to access their group's respective parent.
---
lisp/transient.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index dc1f9b79dc..cf5f9e3658 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1416,6 +1416,10 @@ drawing in the transient buffer.")
"The suffix that is currently being processed.
This is bound while the suffix predicate is being evaluated.")
+(defvar transient--pending-group nil
+ "The group that is currently being processed.
+This is bound while the suffixes are drawn in the transient buffer.")
+
(defvar transient--debug nil
"Whether to put debug information into *Messages*.")
@@ -3394,7 +3398,8 @@ have a history of their own.")
(when-let ((desc (transient-format-description group)))
(insert desc ?\n))
(let ((transient--max-group-level
- (max (oref group level) transient--max-group-level)))
+ (max (oref group level) transient--max-group-level))
+ (transient--pending-group group))
(cl-call-next-method group)))
(cl-defmethod transient--insert-group ((group transient-row))
