[elpa] externals/company 9805c7a37d 03/24: Eliminate some repeat calls

[ELPA Syncer]

branch: externals/company
commit 9805c7a37dada70a142cbcab5830ef5763f22d06
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Eliminate some repeat calls
    
    #1388
---
 company.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/company.el b/company.el
index 2d027be55a..c43a807377 100644
--- a/company.el
+++ b/company.el
@@ -3223,18 +3223,17 @@ If SHOW-VERSION is non-nil, show the version in the 
echo area."
       ((match-beginning 2)
        ;; Zero-width non-breakable space.
        "")
-      ((> (company--string-width match) 1)
-       (concat
-        (propertize
-         (make-string (- (company--string-width match)
-                         (length match))
-                      ?\ufeff)
-         'display
-         ;; !! Experimental stuff.
-         `(space . (:width (,(- (* (default-font-width)
-                                   (company--string-width match))
-                                (string-pixel-width match))))))
-        match))
+      ((let ((msw (company--string-width match)))
+         (when (> msw 1)
+           (concat
+            (propertize
+             (make-string (- msw (length match)) ?\ufeff)
+             'display
+             ;; !! Experimental stuff.
+             `(space . (:width (,(- (* (default-font-width)
+                                       msw)
+                                    (string-pixel-width match))))))
+            match))))
       (t match)))
    str))