[elpa] master 04d26c4 07/36: avy-jump.el (avy-case-fold-search): New defcustom

[Oleh Krehel]

branch: master
commit 04d26c4d212218dab3c897723c731f43ca6fc06b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy-jump.el (avy-case-fold-search): New defcustom
    
    * avy-jump.el (avy--regex-candidates): Use `avy-case-fold-search'.
    When it is t, the case will be ignored while jumping.
    
    Fixes abo-abo/ace-window#34
---
 avy-jump.el |   15 ++++++++++-----
 1 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/avy-jump.el b/avy-jump.el
index 0edb29a..ab04bad 100644
--- a/avy-jump.el
+++ b/avy-jump.el
@@ -100,6 +100,14 @@ If the commands isn't on the list, `avy-style' is used."
   "When non-nil, a gray background will be added during the selection."
   :type 'boolean)
 
+(defcustom avy-all-windows t
+  "When non-nil, loop though all windows for candidates."
+  :type 'boolean)
+
+(defcustom avy-case-fold-search t
+  "Non-nil if searches should ignore case."
+  :type 'boolean)
+
 (defcustom avy-word-punc-regexp "[!-/:address@hidden"
   "Regexp of punctuation chars that count as word starts for `avy-goto-word-1.
 When nil, punctuation chars will not be matched.
@@ -116,10 +124,6 @@ When nil, punctuation chars will not be matched.
   "Face for whole window background during selection.")
 
 ;;* Internals
-(defcustom avy-all-windows t
-  "When non-nil, loop though all windows for candidates."
-  :type 'boolean)
-
 (defmacro avy-dowindows (flip &rest body)
   "Depending on FLIP and `avy-all-windows' run BODY in each or selected 
window."
   (declare (indent 1))
@@ -197,7 +201,8 @@ Use OVERLAY-FN to visualize the decision overlay."
   "Return all elements that match REGEX.
 Each element of the list is ((BEG . END) . WND)
 When PRED is non-nil, it's a filter for matching point positions."
-  (let (candidates)
+  (let ((case-fold-search avy-case-fold-search)
+        candidates)
     (avy-dowindows nil
       (let ((we (or end (window-end (selected-window) t))))
         (save-excursion