ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy-jump.el (avy-case-fold-search): New defcustom

Browse Source 
* 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
This commit is contained in:
Oleh Krehel 2015-05-10 13:29:19 +02:00
parent 05e5c4d12e
commit 04d26c4d21
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
avy-jump.el
View File

@ -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." "When non-nil, a gray background will be added during the selection."
:type 'boolean) :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 "[!-/:-@[-`{-~]" (defcustom avy-word-punc-regexp "[!-/:-@[-`{-~]"
"Regexp of punctuation chars that count as word starts for `avy-goto-word-1. "Regexp of punctuation chars that count as word starts for `avy-goto-word-1.
When nil, punctuation chars will not be matched. 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.") "Face for whole window background during selection.")
;;* Internals ;;* Internals
(defcustom avy-all-windows t
"When non-nil, loop though all windows for candidates."
:type 'boolean)
(defmacro avy-dowindows (flip &rest body) (defmacro avy-dowindows (flip &rest body)
"Depending on FLIP and `avy-all-windows' run BODY in each or selected window." "Depending on FLIP and `avy-all-windows' run BODY in each or selected window."
(declare (indent 1)) (declare (indent 1))
@ -197,7 +201,8 @@ Use OVERLAY-FN to visualize the decision overlay."
"Return all elements that match REGEX. "Return all elements that match REGEX.
Each element of the list is ((BEG . END) . WND) 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."
(let (candidates) (let ((case-fold-search avy-case-fold-search)
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))))
(save-excursion (save-excursion