Recenter window when showing documentation buffer.

diff --git a/company.el b/company.el
index 98b9dcd3ea24225e2f5e7f640218dddda2fb1236..56a57206cd5bf27331773dc4544ec3e258077444 100644 (file)
--- a/company.el
+++ b/company.el
@@ -481,11 +481,16 @@
   (interactive)
   (when company-candidates
     (save-window-excursion
-      (let* ((selected (nth company-selection company-candidates))
+      (let* ((height (window-height))
+             (row (cdr (posn-col-row (posn-at-point))))
+             (selected (nth company-selection company-candidates))
              (buffer (funcall company-backend 'doc-buffer selected)))
         (if (not buffer)
             (error "No documentation available.")
           (display-buffer buffer)
+          (and (< (window-height) height)
+               (< (- (window-height) row 2) company-tooltip-limit)
+               (recenter (- (window-height) row 2)))
           (read-event)
           (when last-input-event
             (clear-this-command-keys t)