branch: elpa/anzu
commit 11544ea75c9139ce848929dcb0d0bc69f506ee58
Author: Syohei YOSHIDA <[email protected]>
Commit: Syohei YOSHIDA <[email protected]>
Consider user's case-fold-search
---
anzu.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/anzu.el b/anzu.el
index 73a2e388b0..05c42a815e 100644
--- a/anzu.el
+++ b/anzu.el
@@ -161,8 +161,9 @@
(list :count count :overflow overflow :positions positions))
(defsubst anzu--case-fold-search (input)
- (let ((case-fold-search nil))
- (not (string-match-p "[A-Z]" input))))
+ (when case-fold-search
+ (let ((case-fold-search nil))
+ (not (string-match-p "[A-Z]" input)))))
(defsubst anzu--word-search-p ()
(and (not (memq anzu--last-command anzu-regexp-search-commands))
@@ -763,7 +764,7 @@
(setq anzu--state 'replace anzu--current-position 0
anzu--replaced-markers (reverse anzu--replaced-markers)
clear-overlay t)
- (let ((case-fold-search (not at-cursor)))
+ (let ((case-fold-search (and case-fold-search (not at-cursor))))
(if use-regexp
(apply #'perform-replace
(anzu--construct-perform-replace-arguments
from to delimited beg end backward
query))
