branch: master
commit c6652b21c7b39dc9fbf3d4b7b48188b943e3783c
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
swiper.el (swiper--add-overlays): Make bounds optional
---
swiper.el | 17 +++++++++--------
1 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/swiper.el b/swiper.el
index b46702b..f123c73 100644
--- a/swiper.el
+++ b/swiper.el
@@ -236,8 +236,9 @@ When non-nil, INITIAL-INPUT is the initial search pattern."
(recenter)))
(swiper--add-overlays re))))
-(defun swiper--add-overlays (re)
- "Add overlays for RE regexp in visible part of the current buffer."
+(defun swiper--add-overlays (re &optional beg end)
+ "Add overlays for RE regexp in visible part of the current buffer.
+BEG and END, when specified, are the point bounds."
(let ((ov (make-overlay
(line-beginning-position)
(1+ (line-end-position)))))
@@ -245,12 +246,12 @@ When non-nil, INITIAL-INPUT is the initial search
pattern."
(overlay-put ov 'window swiper--window)
(push ov swiper--overlays))
(let* ((wh (window-height))
- (beg (save-excursion
- (forward-line (- wh))
- (point)))
- (end (save-excursion
- (forward-line wh)
- (point))))
+ (beg (or beg (save-excursion
+ (forward-line (- wh))
+ (point))))
+ (end (or end (save-excursion
+ (forward-line wh)
+ (point)))))
(when (>= (length re) swiper-min-highlight)
(save-excursion
(goto-char beg)
