branch: externals/transient
commit 3ead3849420b82e08214a5a25e69dbe1becf5647
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--insert-groups(columns): Simplify
- Drop `flatten-tree' as it doesn't make a difference here.
- Avoid `push', favoring `cons'.
---
lisp/transient.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 7bd8280d7b..361345e03d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3752,9 +3752,9 @@ have a history of their own.")
(transient-with-shadowed-buffer
(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))))
+ (if-let ((desc (transient-format-description column)))
+ (cons desc rows)
+ rows))))
(oref group suffixes)))
(vp (or (oref transient--prefix variable-pitch)
transient-align-variable-pitch))
