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

avy.el (avy--regex-candidates): Simplify

Browse Source 
Remove the let-bound BEG and END that would shadow the function's args.
This commit is contained in:
Oleh Krehel 2015-10-19 10:08:26 +02:00
parent 70bd6cec70
commit 248bff08bb
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
avy.el
View File

@ -586,17 +586,15 @@ When GROUP is non-nil, (BEG . END) should delimit that regex group."
(dolist (pair (avy--find-visible-regions
(or beg (window-start))
(or end (window-end (selected-window) t))))
(let ((beg (car pair))
(end (cdr pair)))
(save-excursion
(goto-char beg)
(while (re-search-forward regex end t)
(unless (get-char-property (point) 'invisible)
(when (or (null pred)
(funcall pred))
(push (cons (cons (match-beginning group)
(match-end group))
wnd) candidates))))))))
(save-excursion
(goto-char (car pair))
(while (re-search-forward regex (cdr pair) t)
(unless (get-char-property (point) 'invisible)
(when (or (null pred)
(funcall pred))
(push (cons (cons (match-beginning group)
(match-end group))
wnd) candidates)))))))
(nreverse candidates)))
(defvar avy--overlay-offset 0