Added scrolling.

diff --git a/company.el b/company.el
index a5e5251e2580b045e9207e42d86882b01e8c43b8..7dc98e8763f45e3f353d9ab5e19d5c06c272bf3d 100644 (file)
--- a/company.el
+++ b/company.el
@@ -118,6 +118,10 @@
 (defsubst company-strip-prefix (str)
   (substring str (length company-prefix)))
 
+(defsubst company-offset (display-limit)
+  (let ((offset (- company-selection display-limit -1)))
+    (max offset 0)))
+
 (defun company-begin ()
   (let ((completion-ignore-case nil) ;; TODO: make this optional
         prefix)
@@ -269,6 +273,11 @@
   (unless lines (error "No text provided"))
   (save-excursion
 
+    ;; Scroll to offset.
+    (let ((offset (company-offset company-tooltip-limit)))
+      (setq lines (nthcdr offset lines))
+      (decf selection offset))
+
     (setq lines (company-fill-propertize-lines column lines selection))