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-window-list): Fixup last commit

Browse Source 
* avy.el (avy-window-list): Update.

Fixes #45
This commit is contained in:
Oleh Krehel 2015-05-18 16:31:46 +02:00
parent b288c69aa0
commit 92a7884d9c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
avy.el
View File

@ -250,13 +250,17 @@ multiple DISPLAY-FN invokations."
;;** Rest ;;** Rest
(defun avy-window-list () (defun avy-window-list ()
"Return a list of windows depending on `avy-all-windows'." "Return a list of windows depending on `avy-all-windows'."
(cl-case avy-all-windows (cond ((eq avy-all-windows 'all-frames)
(all-frames
(cl-mapcan #'window-list (frame-list))) (cl-mapcan #'window-list (frame-list)))
(this-frame
((eq avy-all-windows t)
(window-list)) (window-list))
((null avy-all-windows)
(list (selected-window)))
(t (t
(list (selected-window))))) (error "Unrecognized option: %S" avy-all-windows))))
(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."