emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Simplify doom-buried-buffers & doom-real-buffer-list

Browse source
This commit is contained in:
Henrik Lissner 2018-01-03 13:43:33 -05:00
parent e9a012af34
commit fa72e8d09b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/buffers.el
View file

@ -67,9 +67,7 @@ If no project is active, return all buffers."
;;;###autoload ;;;###autoload
(defun doom-real-buffer-list (&optional buffer-list) (defun doom-real-buffer-list (&optional buffer-list)
"Return a list of buffers that satify `doom-real-buffer-p'." "Return a list of buffers that satify `doom-real-buffer-p'."
(cl-loop for buf in (or buffer-list (doom-buffer-list)) (cl-remove-if-not #'doom-real-buffer-p (or buffer-list (doom-buffer-list))))
if (doom-real-buffer-p buf)
collect buf))
;;;###autoload ;;;###autoload
(defun doom-real-buffer-p (&optional buffer-or-name) (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 ;;;###autoload
(defun doom-buried-buffers (&optional buffer-list) (defun doom-buried-buffers (&optional buffer-list)
"Get a list of buffers that are buried." "Get a list of buffers that are buried."
(cl-loop for buf in (or buffer-list (doom-buffer-list)) (cl-remove-if #'get-buffer-window (or buffer-list (doom-buffer-list))))
unless (get-buffer-window buf)
collect buf))
;;;###autoload ;;;###autoload
(defun doom-matching-buffers (pattern &optional buffer-list) (defun doom-matching-buffers (pattern &optional buffer-list)