branch: externals/transient
commit 6d7fc6e1b9cc426a79f1594be77e958516a814b8
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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)))
