Allowed scrolling of the documentation window.

diff --git a/company.el b/company.el
index 5f7023a594045dbc03df95f92ccea32a3bde8a41..91cdfc1e97f2af91342a50cf4005daa684f2295c 100644 (file)
--- a/company.el
+++ b/company.el
@@ -649,7 +649,9 @@
           (and (< (window-height) height)
                (< (- (window-height) row 2) company-tooltip-limit)
                (recenter (- (window-height) row 2)))
-          (read-event)
+          (while (eq 'scroll-other-window
+                     (key-binding (vector (list (read-event)))))
+            (scroll-other-window))
           (when last-input-event
             (clear-this-command-keys t)
             (setq unread-command-events (list last-input-event))))))))