[elpa] externals/company df9fa85 2/3: Merge pull request #1114 from yugaego/refactor-numbers-place

[ELPA Syncer]

branch: externals/company
commit df9fa85c5dea7e950dec92a77b79ac712afc02f5
Merge: f56b1e5 ba3e54b
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #1114 from yugaego/refactor-numbers-place
    
    Improve readability by minor refactoring
---
 company.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/company.el b/company.el
index 2dcfd8d..13aaea7 100644
--- a/company.el
+++ b/company.el
@@ -3180,11 +3180,13 @@ If SHOW-VERSION is non-nil, show the version in the 
echo area."
                (right (company-space-string company-tooltip-margin))
                (width width))
           (when company-show-numbers
+            (let ((numbers-place
+                   (gv-ref (if (eq company-show-numbers 'left) left right))))
             (cl-decf width 2)
             (cl-incf numbered)
-            (setf (if (eq company-show-numbers 'left) left right)
+            (setf (gv-deref numbers-place)
                   (concat (funcall company-show-numbers-function numbered)
-                          (if (eq company-show-numbers 'left) left right))))
+                          (gv-deref numbers-place)))))
           (push (concat
                  (company-fill-propertize str annotation
                                           width (equal i selection)