Considers letter case only if given Upcase letter

Fixes #87
This commit is contained in:
B Jacquet 2015-08-06 15:13:57 +01:00 committed by Oleh Krehel
parent 30067ddc09
commit 1e578a147a

3
avy.el
View File

@ -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 PRED is non-nil, it's a filter for matching point positions.
When GROUP is non-nil, (BEG . END) should delimit that regex group." When GROUP is non-nil, (BEG . END) should delimit that regex group."
(setq group (or group 0)) (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) candidates)
(avy-dowindows nil (avy-dowindows nil
(let ((we (or end (window-end (selected-window) t)))) (let ((we (or end (window-end (selected-window) t))))