[elpa] externals/transient 753de9088e 1/6: transient--insert-groups: Use while-let

[Jonas Bernoulli via]

branch: externals/transient
commit 753de9088e0f71ed57120f4e42e81430ab9e48d6
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient--insert-groups: Use while-let
---
 lisp/transient.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index a58eb2e87f..1b33ea86ce 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3692,9 +3692,8 @@ have a history of their own.")
                                               (transient-with-shadowed-buffer
                                                 (funcall hide))))
                                     (list group))))
-                           transient--layout))
-        group)
-    (while (setq group (pop groups))
+                           transient--layout)))
+    (while-let ((group (pop groups)))
       (transient--insert-group group)
       (when groups
         (insert ?\n)))))