(ioccur-print-results): Fix setting of case-fold-search.

diff --git a/packages/ioccur/ioccur.el b/packages/ioccur/ioccur.el
index 395d5875207052412e7f178273991359010ff072..642c9e7184f1c305c7edf7de706fdaa03341ac36 100644 (file)
--- a/packages/ioccur/ioccur.el
+++ b/packages/ioccur/ioccur.el
@@ -309,7 +309,8 @@ Special commands:
   (setq ioccur-count-occurences 0)
   (with-current-buffer ioccur-current-buffer
     (let ((case-fold-search (case ioccur-case-fold-search
-                              (smart (if (string-match "[A-Z]" regexp) nil t))
+                              (smart (let ((case-fold-search nil))
+                                       (if (string-match "[A-Z]" regexp) nil t)))
                               (t ioccur-case-fold-search))))
       (save-excursion
         (goto-char (point-min))
@@ -327,7 +328,6 @@ Special commands:
                   count (match-string 0) regexp)
               do (forward-line 1))))))
 
-
 (defun ioccur-print-match (str &optional all)
   "Highlight in string STR all occurences matching `ioccur-pattern'.
 If ALL is non--nil highlight the whole string STR."