branch: externals/transient
commit 1cb68bf47b9421dc3f72caafbc88f98be2084a3b
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--insert-group(subgroups): Cosmetics
---
lisp/transient.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 7058ca9833..260290970a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3800,14 +3800,12 @@ have a history of their own.")
(insert ?\n))))))))
(cl-defmethod transient--insert-group ((group transient-subgroups))
- (let* ((subgroups (oref group suffixes))
- (n (length subgroups)))
- (dotimes (s n)
- (let ((subgroup (nth s subgroups)))
- (transient--maybe-pad-keys subgroup group)
- (transient--insert-group subgroup)
- (when (< s (1- n))
- (insert ?\n))))))
+ (let ((subgroups (oref group suffixes)))
+ (while-let ((subgroup (pop subgroups)))
+ (transient--maybe-pad-keys subgroup group)
+ (transient--insert-group subgroup)
+ (when subgroups
+ (insert ?\n)))))
(cl-defgeneric transient-format (obj)
"Format and return OBJ for display.
