emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 07/28: company--window-inner-height: remove, use `window-body-hei


From: Dmitry Gutov
Subject: [elpa] 07/28: company--window-inner-height: remove, use `window-body-height'
Date: Wed, 27 Aug 2014 01:26:22 +0000

dgutov pushed a commit to branch master
in repository elpa.

commit e7f432480b9aaac4ceb8fc27189c430770cb136e
Author: Dmitry Gutov <address@hidden>
Date:   Mon Aug 4 02:38:37 2014 +0400

    company--window-inner-height: remove, use `window-body-height'
    
    Available since Emacs 24.1.
    
    Fixes #160
---
 company.el |    6 +-----
 1 files changed, 1 insertions(+), 5 deletions(-)

diff --git a/company.el b/company.el
index 3f90a48..276e0b4 100644
--- a/company.el
+++ b/company.el
@@ -2359,10 +2359,6 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
 
 ;; show
 
-(defsubst company--window-inner-height ()
-  (let ((edges (window-inside-edges)))
-    (- (nth 3 edges) (nth 1 edges))))
-
 (defsubst company--window-width ()
   (let ((ww (window-body-width)))
     ;; Account for the line continuation column.
@@ -2382,7 +2378,7 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
   "Calculate the appropriate tooltip height.
 Returns a negative number if the tooltip should be displayed above point."
   (let* ((lines (company--row))
-         (below (- (company--window-inner-height) 1 lines)))
+         (below (- (window-body-height) 1 lines)))
     (if (and (< below (min company-tooltip-minimum company-candidates-length))
              (> lines below))
         (- (max 3 (min company-tooltip-limit lines)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]