doom-visible-windows: support visible window-parameter

This commit is contained in:
Henrik Lissner 2018-05-15 01:31:40 +02:00
parent abb4d5a009
commit d0f8bf402a
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -128,7 +128,8 @@ If DERIVED-P, test with `derived-mode-p', otherwise use `eq'."
(defun doom-visible-windows (&optional window-list) (defun doom-visible-windows (&optional window-list)
"Return a list of the visible, non-popup (dedicated) windows." "Return a list of the visible, non-popup (dedicated) windows."
(cl-loop for window in (or window-list (window-list)) (cl-loop for window in (or window-list (window-list))
unless (window-dedicated-p window) when (or (window-parameter window 'visible)
(not (window-dedicated-p window)))
collect window)) collect window))
;;;###autoload ;;;###autoload