[elpa] master 770d0d8 59/66: Work around http://debbugs.gnu.org/19553

[Dmitry Gutov]

branch: master
commit 770d0d8956cd5f55bb61069a743225a28818c134
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Work around http://debbugs.gnu.org/19553
    
    Fixes #274
---
 company.el              |    3 ++-
 test/frontends-tests.el |    9 +++++++++
 2 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/company.el b/company.el
index b71b0f3..e4cfcdd 100644
--- a/company.el
+++ b/company.el
@@ -2220,7 +2220,8 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
 (defun company-buffer-lines (beg end)
   (goto-char beg)
   (let (lines lines-moved)
-    (while (and (> (setq lines-moved (vertical-motion 1)) 0)
+    (while (and (not (eobp)) ; http://debbugs.gnu.org/19553
+                (> (setq lines-moved (vertical-motion 1)) 0)
                 (<= (point) end))
       (let ((bound (min end (1- (point)))))
         ;; A visual line can contain several physical lines (e.g. with 
outline's
diff --git a/test/frontends-tests.el b/test/frontends-tests.el
index 1d12b3c..a10f914 100644
--- a/test/frontends-tests.el
+++ b/test/frontends-tests.el
@@ -267,6 +267,15 @@
     (should (equal (company-buffer-lines (point-min) (point-max))
                    '("" "" "" "eee" "fff" "ggg")))))
 
+(ert-deftest company-buffer-lines-with-multiline-after-string-at-eob ()
+  :tags '(interactive)
+  (with-temp-buffer
+    (insert "a\nb\nc\n")
+    (let ((ov (make-overlay (point-max) (point-max) nil t t)))
+      (overlay-put ov 'after-string "~\n~\n~"))
+    (should (equal (company-buffer-lines (point-min) (point-max))
+                   '("a" "b" "c")))))
+
 (ert-deftest company-modify-line ()
   (let ((str "-*-foobar"))
     (should (equal-including-properties