From 73c95bb1ad7dcf6e677596fd864467942e3ffbad Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 13 Aug 2020 22:39:19 -0400 Subject: [PATCH] Optimize doom-visible-buffers --- core/autoload/buffers.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/core/autoload/buffers.el b/core/autoload/buffers.el index c6b715960..7e460826f 100644 --- a/core/autoload/buffers.el +++ b/core/autoload/buffers.el @@ -179,9 +179,11 @@ If DERIVED-P, test with `derived-mode-p', otherwise use `eq'." ;;;###autoload (defun doom-visible-buffers (&optional buffer-list) "Return a list of visible buffers (i.e. not buried)." - (if buffer-list - (cl-remove-if-not #'get-buffer-window buffer-list) - (delete-dups (mapcar #'window-buffer (window-list))))) + (let ((buffers (delete-dups (mapcar #'window-buffer (window-list))))) + (if buffer-list + (cl-delete-if (lambda (b) (memq b buffer-list)) + buffers) + (delete-dups buffers)))) ;;;###autoload (defun doom-buried-buffers (&optional buffer-list)