]> code.delx.au - gnu-emacs-elpa/commitdiff
company-buffer-lines: Use vertical-motion
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 16 Mar 2013 04:24:34 +0000 (08:24 +0400)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 16 Mar 2013 04:35:40 +0000 (08:35 +0400)
So that we don't skip continuation lines

company.el

index 8cdfa401b4c492fbda1e71c5a8446c21220b81fe..4edf651d9887c8370783393bf945a2c041079c8f 100644 (file)
@@ -1657,7 +1657,7 @@ Example:
 (defun company-buffer-lines (beg end)
   (goto-char beg)
   (let (lines)
-    (while (and (zerop (forward-line 1))
+    (while (and (= 1 (vertical-motion 1))
                 (<= (point) end))
       (push (buffer-substring beg (min end (1- (point)))) lines)
       (setq beg (point)))