From fa72e8d09bf533867330216fd7f167109bfe8ba1 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 3 Jan 2018 13:43:33 -0500 Subject: [PATCH] Simplify doom-buried-buffers & doom-real-buffer-list --- core/autoload/buffers.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/core/autoload/buffers.el b/core/autoload/buffers.el index 48c310c55..2fd38ff72 100644 --- a/core/autoload/buffers.el +++ b/core/autoload/buffers.el @@ -67,9 +67,7 @@ If no project is active, return all buffers." ;;;###autoload (defun doom-real-buffer-list (&optional buffer-list) "Return a list of buffers that satify `doom-real-buffer-p'." - (cl-loop for buf in (or buffer-list (doom-buffer-list)) - if (doom-real-buffer-p buf) - collect buf)) + (cl-remove-if-not #'doom-real-buffer-p (or buffer-list (doom-buffer-list)))) ;;;###autoload (defun doom-real-buffer-p (&optional buffer-or-name) @@ -119,9 +117,7 @@ If DERIVED-P, test with `derived-mode-p', otherwise use `eq'." ;;;###autoload (defun doom-buried-buffers (&optional buffer-list) "Get a list of buffers that are buried." - (cl-loop for buf in (or buffer-list (doom-buffer-list)) - unless (get-buffer-window buf) - collect buf)) + (cl-remove-if #'get-buffer-window (or buffer-list (doom-buffer-list)))) ;;;###autoload (defun doom-matching-buffers (pattern &optional buffer-list)