transient--string-pixel-width: Renamed function

Shortly after this was added to Transient, `string-pixel-width'
was added to Emacs.  Also rearrange a bit to use same nesting as
was originally used in that function.

1 files changed, 7 insertions, 6 deletions

diff --git a/lisp/transient.el b/lisp/transient.el
index cfedea0..e8e4e75 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -5201,10 +5201,10 @@ apply the face `transient-unreachable' to the complete string."
                                   (length (oref suffix key))))
                            (oref group suffixes))))))
 
-(defun transient--pixel-width (string)
-  (save-window-excursion
-    (with-temp-buffer
-      (insert string)
+(defun transient--string-pixel-width (string)
+  (with-temp-buffer
+    (insert string)
+    (save-window-excursion
       (set-window-dedicated-p nil nil)
       (set-window-buffer nil (current-buffer))
       (car (window-text-pixel-size
@@ -5213,14 +5213,15 @@ apply the face `transient-unreachable' to the complete string."
 (defun transient--column-stops (columns)
   (let* ((var-pitch (or transient-align-variable-pitch
                         (oref transient--prefix variable-pitch)))
-         (char-width (and var-pitch (transient--pixel-width " "))))
+         (char-width (and var-pitch (transient--string-pixel-width " "))))
     (transient--seq-reductions-from
      (apply-partially #'+ (* 2 (if var-pitch char-width 1)))
      (transient--mapn
       (lambda (cells min)
         (apply #'max
                (if min (if var-pitch (* min char-width) min) 0)
-               (mapcar (if var-pitch #'transient--pixel-width #'length) cells)))
+               (mapcar (if var-pitch #'transient--string-pixel-width #'length)
+                       cells)))
       columns
       (oref transient--prefix column-widths))
      0)))