[elpa] master c9f1889 136/184: swiper.el (swiper--query-replace-setup): Fix "^$" issue

[Oleh Krehel]

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

    swiper.el (swiper--query-replace-setup): Fix "^$" issue
    
    When the match length is 0, `forward-char' so that the while loop is
    not stuck.
    
    Fixes #2232
---
 swiper.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/swiper.el b/swiper.el
index 11c4bce..08afea2 100644
--- a/swiper.el
+++ b/swiper.el
@@ -170,8 +170,9 @@ Treated as non-nil when searching backwards."
     (let ((end (window-end (selected-window) t))
           (re (ivy--regex ivy-text)))
       (save-excursion
-        (goto-char (window-start))
-        (while (re-search-forward re end t)
+        (beginning-of-line)
+        (while (and (re-search-forward re end t)
+                    (not (eobp)))
           (let ((ov (make-overlay (1- (match-end 0)) (match-end 0)))
                 (md (match-data)))
             (overlay-put
@@ -180,7 +181,9 @@ Treated as non-nil when searching backwards."
               (lambda (x)
                 (list `(match-string ,x) (match-string x)))
               (number-sequence 0 (1- (/ (length md) 2)))))
-            (push ov swiper--query-replace-overlays)))))))
+            (push ov swiper--query-replace-overlays))
+          (unless (> (match-end 0) (match-beginning 0))
+            (forward-char)))))))
 
 (defun swiper-query-replace ()
   "Start `query-replace' with string to replace from last search string."