[ELPA-diffs] /srv/bzr/emacs/elpa r244: (ioccur-print-results): Fix setting of case-fold-search.

[thierry volpiatto]

------------------------------------------------------------
revno: 244
committer: thierry volpiatto <address@hidden
branch nick: elpa
timestamp: Tue 2012-07-24 09:35:14 +0200
message:
  (ioccur-print-results): Fix setting of case-fold-search.
modified:
  packages/ioccur/ioccur.el

=== modified file 'packages/ioccur/ioccur.el'
--- a/packages/ioccur/ioccur.el 2012-07-24 04:53:30 +0000
+++ b/packages/ioccur/ioccur.el 2012-07-24 07:35:14 +0000
@@ -309,7 +309,8 @@
   (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 @@
                   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."