Fix setting of end-match in helm-highlight-current-line.

* helm-utils.el (helm-highlight-current-line): Do it.

1 files changed, 11 insertions, 6 deletions

diff --git a/helm-utils.el b/helm-utils.el
index 8c4efce2..5b71f0b6 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -608,11 +608,16 @@ If STRING is non--nil return instead a space separated string."
               (zerop helm-highlight-matches-around-point-max-lines))
           (setq start-match start
                 end-match   end)
-          (save-excursion
-            (forward-line
-             (- helm-highlight-matches-around-point-max-lines))
-            (setq start-match (point-at-bol)
-                  end-match   (point-at-eol)))) 
+          (setq start-match
+                (save-excursion
+                  (forward-line
+                   (- helm-highlight-matches-around-point-max-lines))
+                  (point-at-bol))
+                  end-match
+                  (save-excursion
+                    (forward-line
+                     helm-highlight-matches-around-point-max-lines)
+                    (point-at-bol)))))
       (catch 'empty-line
         (cl-loop with ov
                  for r in (helm-remove-if-match
@@ -637,7 +642,7 @@ If STRING is non--nil return instead a space separated string."
                                     helm--match-item-overlays)
                               (overlay-put ov 'face 'helm-match-item)
                               (overlay-put ov 'priority 1))))))))
-    (recenter)))
+    (recenter))
 
 (defun helm--translate-pcre-to-elisp (regexp)
   "Should translate pcre REGEXP to elisp regexp.