scratch/emoji 838ae0c: Make variable pitch scale spaces

[Lars Ingebrigtsen]

branch: scratch/emoji
commit 838ae0cb5685a695437e44db20ba5d7fd272ccfe
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make variable pitch scale spaces
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 85a55ee..f5f19cf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2966,6 +2966,7 @@ have a history of their own.")
            (oref group suffixes)))
          (vp (oref transient--prefix variable-pitch))
          (rs (apply #'max (mapcar #'length columns)))
+         (multiplier (if vp (transient--pixel-width " ") 1))
          (cs (length columns))
          (cw (mapcar (lambda (col)
                        (apply #'max (mapcar (if vp
@@ -2974,7 +2975,7 @@ have a history of their own.")
                                             col)))
                      columns))
          (cc (transient--seq-reductions-from
-              (apply-partially #'+ (if vp 30 3))
+              (apply-partially #'+ (* 3 multiplier))
               cw 0)))
     (if transient-force-single-column
         (dotimes (c cs)