Work around http://debbugs.gnu.org/18384

Closes #249

diff --git a/company.el b/company.el
index a7a53700ccf8adb67e98f91f8a3192fafb4d1930..9f22027f3e02cb5d5014903faf8c43277f83e9e3 100644 (file)
--- a/company.el
+++ b/company.el
@@ -2231,6 +2231,10 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
                (let ((margins (window-margins)))
                  (+ (or (car margins) 0)
                     (or (cdr margins) 0)))))
+    (when (and word-wrap
+               (version< emacs-version "24.4.51.5"))
+      ;; http://debbugs.gnu.org/18384
+      (cl-decf ww))
     ww))
 
 (defun company--replacement-string (lines old column nl &optional align-top)