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.el (avy--read-candidates): Use avy-dowindows

Browse Source 
Fixes #114
This commit is contained in:
Oleh Krehel 2015-11-11 13:50:04 +01:00
parent 1b78fb0d89
commit edf1259f25
1 changed files with 51 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
avy.el
View File

@ -1175,8 +1175,7 @@ This function obeys `avy-all-windows' setting."
;; Highlight ;; Highlight
(when (>= (length str) 1) (when (>= (length str) 1)
(let (found) (let (found)
(dolist (win (avy-window-list)) (avy-dowindows nil
(with-selected-window win
(dolist (pair (avy--find-visible-regions (dolist (pair (avy--find-visible-regions
(window-start) (window-start)
(window-end (selected-window) t))) (window-end (selected-window) t)))
@ -1191,7 +1190,7 @@ This function obeys `avy-all-windows' setting."
(setq found t) (setq found t)
(push ov overlays) (push ov overlays)
(overlay-put ov 'window (selected-window)) (overlay-put ov 'window (selected-window))
(overlay-put ov 'face 'avy-goto-char-timer-face)))))))) (overlay-put ov 'face 'avy-goto-char-timer-face)))))))
;; No matches at all, so there's surely a typo in the input. ;; No matches at all, so there's surely a typo in the input.
(unless found (beep))))) (unless found (beep)))))
(nreverse (mapcar (lambda (ov) (nreverse (mapcar (lambda (ov)