[elpa] externals/transient 6d7fc6e1b9 2/7: transient--insert-group(columns): Combine char and pixel paths

[Jonas Bernoulli]

branch: externals/transient
commit 6d7fc6e1b9cc426a79f1594be77e958516a814b8
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--insert-group(columns): Combine char and pixel paths
---
 lisp/transient.el | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index a963435e26..72ff0bcf4d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3822,21 +3822,15 @@ have a history of their own.")
                 cw 0)))
       (dotimes (r rs)
         (dotimes (c cs)
-          (if vp
-              (progn
-                (when-let ((cell (nth r (nth c columns))))
-                  (insert cell))
-                (if (= c (1- cs))
-                    (insert ?\n)
-                  (insert (propertize " " 'display
-                                      `(space :align-to (,(nth (1+ c) cc)))))))
-            (when (> c 0)
-              (insert (make-string (max 1 (- (nth c cc) (current-column)))
-                                   ?\s)))
-            (when-let ((cell (nth r (nth c columns))))
-              (insert cell))
-            (when (= c (1- cs))
-              (insert ?\n))))))))
+          (when (> c 0)
+            (insert
+             (if vp
+                 (propertize " " 'display `(space :align-to (,(nth c cc))))
+               (make-string (max 1 (- (nth c cc) (current-column))) ?\s))))
+          (when-let ((cell (nth r (nth c columns))))
+            (insert cell))
+          (when (= c (1- cs))
+            (insert ?\n)))))))
 
 (cl-defmethod transient--insert-group ((group transient-subgroups))
   (let ((subgroups (oref group suffixes)))