From 753de9088e0f71ed57120f4e42e81430ab9e48d6 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Mon, 6 May 2024 17:59:54 +0200 Subject: [PATCH] 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 a58eb2e8..1b33ea86 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)))))