[elpa] master 815f094 252/399: swiper.el (swiper--add-line-overlay): Extract

[Oleh Krehel]

branch: master
commit 815f0946174668ca9d3d7115b1bbfcf2af64df6b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    swiper.el (swiper--add-line-overlay): Extract
---
 swiper.el | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/swiper.el b/swiper.el
index 60d1dc4..377db44 100644
--- a/swiper.el
+++ b/swiper.el
@@ -782,6 +782,20 @@ Matched candidates should have `swiper-invocation-face'."
       (overlay-put ov 'face 'ivy-cursor))
     (push ov swiper--overlays)))
 
+(defun swiper--add-line-overlay (wnd)
+  (let ((beg (if visual-line-mode
+                 (save-excursion
+                   (beginning-of-visual-line)
+                   (point))
+               (line-beginning-position)))
+        (end (if visual-line-mode
+                 (save-excursion
+                   (end-of-visual-line)
+                   (point))
+               (1+ (line-end-position)))))
+    (push (swiper--make-overlay beg end 'swiper-line-face wnd 0)
+          swiper--overlays)))
+
 (defun swiper--make-overlay (beg end face wnd priority)
   "Create an overlay bound by BEG and END.
 FACE, WND and PRIORITY are properties corresponding to
@@ -862,18 +876,7 @@ the face, window and priority of the overlay."
 BEG and END, when specified, are the point bounds.
 WND, when specified is the window."
   (setq wnd (or wnd (ivy-state-window ivy-last)))
-  (let ((beg (if visual-line-mode
-                 (save-excursion
-                   (beginning-of-visual-line)
-                   (point))
-               (line-beginning-position)))
-        (end (if visual-line-mode
-                 (save-excursion
-                   (end-of-visual-line)
-                   (point))
-               (1+ (line-end-position)))))
-    (push (swiper--make-overlay beg end 'swiper-line-face wnd 0)
-          swiper--overlays))
+  (swiper--add-line-overlay wnd)
   (let* ((pt (point))
          (wh (window-height))
          (beg (or beg (save-excursion