Support whitespace-mode newline-mark

Fixes #370

diff --git a/company.el b/company.el
index 5c20c0516be6e57acae8e3893576c8024be04667..8500a4d93d20a32470b052f505ce4fdd00f7b8ed 100644 (file)
--- a/company.el
+++ b/company.el
@@ -2400,6 +2400,10 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
                (version< emacs-version "24.4.51.5"))
       ;; http://debbugs.gnu.org/18384
       (cl-decf ww))
+    ;; whitespace-mode with newline-mark
+    (when (and buffer-display-table
+               (aref buffer-display-table ?\n))
+      (cl-decf ww (1- (length (aref buffer-display-table ?\n)))))
     ww))
 
 (defun company--replacement-string (lines old column nl &optional align-top)