------------------------------------------------------------
revno: 244
committer: thierry volpiatto <thierry.volpia...@gmail.com
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."
