[elpa] master 1e578a1 15/78: Considers letter case only if given Upcase letter

[Oleh Krehel]

branch: master
commit 1e578a147a6d6bee2d977fbc632d1e903651e7f8
Author: B Jacquet <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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))))