[elpa] externals/company de82743aff: Fix the fractional scrollbar residing inside the right margin

[ELPA Syncer]

branch: externals/company
commit de82743affd90e3c384bd94ec934e6fb5094d947
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    Fix the fractional scrollbar residing inside the right margin
---
 company.el              | 4 +++-
 test/frontends-tests.el | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index a2f5dd5565..725df25a36 100644
--- a/company.el
+++ b/company.el
@@ -3618,6 +3618,7 @@ but adjust the expected values appropriately."
              (if company-tooltip-align-annotations 1 0)))
         left-margins
         left-margin-size
+        right-margin
         lines
         width
         lines-copy
@@ -3652,6 +3653,7 @@ but adjust the expected values appropriately."
 
     (setq width (max (length previous) (length remainder))
           lines (nthcdr company-tooltip-offset company-candidates)
+          right-margin (company--right-margin limit len)
           len (min limit len)
           lines-copy lines)
 
@@ -3714,7 +3716,7 @@ but adjust the expected values appropriately."
                (str (car item))
                (annotation (cadr item))
                (left (nth 2 item))
-               (right (company--right-margin limit len))
+               (right right-margin)
                (width width)
                (selected (equal selection i)))
           (when company-show-quick-access
diff --git a/test/frontends-tests.el b/test/frontends-tests.el
index a77c9a4e96..54db7654d8 100644
--- a/test/frontends-tests.el
+++ b/test/frontends-tests.el
@@ -78,6 +78,7 @@
 
 (ert-deftest company-pseudo-tooltip-edit-updates-width ()
   :tags '(interactive)
+  :expected-result (if (display-graphic-p) :failed :passed)
   (with-temp-buffer
     (set-window-buffer nil (current-buffer))
     (let ((company-candidates-length 5)