From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 10 Dec 2014 22:55:28 +0000 (+0200)
Subject: Work around http://debbugs.gnu.org/18384
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/8196ff6d846102ad23b705252e879d729304e021

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

Closes #249
---

diff --git a/company.el b/company.el
index a7a53700c..9f22027f3 100644
--- 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)