awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Optimize doom-visible-buffers

Browse Source
This commit is contained in:
Henrik Lissner
2020-08-13 22:39:19 -04:00
parent d02d78c3fa
commit 73c95bb1ad
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/autoload/buffers.el
View File

@ -179,9 +179,11 @@ If DERIVED-P, test with `derived-mode-p', otherwise use `eq'."
;;;###autoload ;;;###autoload
(defun doom-visible-buffers (&optional buffer-list) (defun doom-visible-buffers (&optional buffer-list)
"Return a list of visible buffers (i.e. not buried)." "Return a list of visible buffers (i.e. not buried)."
(if buffer-list (let ((buffers (delete-dups (mapcar #'window-buffer (window-list)))))
(cl-remove-if-not #'get-buffer-window buffer-list) (if buffer-list
(delete-dups (mapcar #'window-buffer (window-list))))) (cl-delete-if (lambda (b) (memq b buffer-list))
buffers)
(delete-dups buffers))))
;;;###autoload ;;;###autoload
(defun doom-buried-buffers (&optional buffer-list) (defun doom-buried-buffers (&optional buffer-list)