From 1e578a147a6d6bee2d977fbc632d1e903651e7f8 Mon Sep 17 00:00:00 2001
From: B Jacquet <bjacquet@siscog.pt>
Date: Thu, 6 Aug 2015 15:13:57 +0100
Subject: [PATCH] Considers letter case only if given Upcase letter

Fixes #87
---
 avy.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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