]> code.delx.au - gnu-emacs-elpa/blobdiff - company.el
Work around http://debbugs.gnu.org/19553
[gnu-emacs-elpa] / company.el
index b71b0f3e5139d04efafcc9856007b3f51bab4a77..e4cfcdde353a8e3f34f8c2c785670a9ce3de15f0 100644 (file)
@@ -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