From 04d26c4d212218dab3c897723c731f43ca6fc06b Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Sun, 10 May 2015 13:29:19 +0200 Subject: [PATCH] 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 file 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 "[!-/:-@[-`{-~]" "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