transient--insert-groups: Use while-let

magit · May 6, 2024 · 753de90 · 753de90
1 parent 2dd0102
commit 753de90
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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)))))