[elpa] master b1c6cc8 300/348: swiper.el (swiper-all): Fix case-fold-search

[Oleh Krehel]

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

    swiper.el (swiper-all): Fix case-fold-search
    
    * swiper.el (swiper--add-overlays): Set `case-fold-search'.
    
    Fixes #880
---
 swiper.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/swiper.el b/swiper.el
index 7dc34fa..0ed3a8d 100644
--- a/swiper.el
+++ b/swiper.el
@@ -611,7 +611,9 @@ WND, when specified is the window."
                           (point))))
            (end (or end (save-excursion
                           (forward-line wh)
-                          (point)))))
+                          (point))))
+           (case-fold-search (and ivy-case-fold-search
+                                  (string= re (downcase re)))))
       (when (>= (length re) swiper-min-highlight)
         (save-excursion
           (goto-char beg)
@@ -780,7 +782,10 @@ Run `swiper' for those buffers."
     (let* ((buffers (cl-remove-if-not #'swiper-all-buffer-p (buffer-list)))
            (re-full (funcall ivy--regex-function str))
            re re-tail
-           cands match)
+           cands match
+           (case-fold-search
+            (and ivy-case-fold-search
+                 (string= str (downcase str)))))
       (if (stringp re-full)
           (setq re re-full)
         (setq re (caar re-full))