branch: master
commit 1e578a147a6d6bee2d977fbc632d1e903651e7f8
Author: B Jacquet <[email protected]>
Commit: Oleh Krehel <[email protected]>
Considers letter case only if given Upcase letter
Fixes #87
---
avy.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/avy.el b/avy.el
index ae4c59b..0057396 100644
--- a/avy.el
+++ b/avy.el
@@ -549,7 +549,8 @@ Each element of the list is ((BEG . END) . WND)
When PRED is non-nil, it's a filter for matching point positions.
When GROUP is non-nil, (BEG . END) should delimit that regex group."
(setq group (or group 0))
- (let ((case-fold-search avy-case-fold-search)
+ (let ((case-fold-search (or avy-case-fold-search
+ (not (string= regex (upcase regex)))))
candidates)
(avy-dowindows nil
(let ((we (or end (window-end (selected-window) t))))
