From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sat, 30 Mar 2013 18:31:38 +0000 (+0400)
Subject: company-pseudo-tooltip-frontend: Redraw less often when expanded upward
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/ed75169bc3f458a25a192186c0d05bff8a54be36

company-pseudo-tooltip-frontend: Redraw less often when expanded upward
---

diff --git a/company.el b/company.el
index 459068341..35b07809f 100644
--- a/company.el
+++ b/company.el
@@ -1797,7 +1797,7 @@ Returns a negative number if the tooltip should be displayed above point."
                             args))
 
         (overlay-put ov 'company-column column)
-        (overlay-put ov 'company-height (abs height))))))
+        (overlay-put ov 'company-height height)))))
 
 (defun company-pseudo-tooltip-show-at-point (pos)
   (let ((col-row (company--col-row pos)))
@@ -1810,7 +1810,7 @@ Returns a negative number if the tooltip should be displayed above point."
         (height (overlay-get company-pseudo-tooltip-overlay 'company-height)))
     (overlay-put company-pseudo-tooltip-overlay 'company-before
                  (apply 'company--replacement-string
-                        (company--create-lines selection height)
+                        (company--create-lines selection (abs height))
                         (overlay-get company-pseudo-tooltip-overlay
                                      'company-replacement-args)))))