From d8a0bc782720d65c6076435a4db425c3dde06c66 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 12 Apr 2017 08:52:22 -0400 Subject: [PATCH] doom/cleanup-buffers: add all-p parameter --- core/autoload/buffers.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/autoload/buffers.el b/core/autoload/buffers.el index 30dbfc9cf..51131fe32 100644 --- a/core/autoload/buffers.el +++ b/core/autoload/buffers.el @@ -246,10 +246,10 @@ exclude buffers that aren't part of the current project." (message "Killed %s buffers" n)))) ;;;###autoload -(defun doom/cleanup-buffers () +(defun doom/cleanup-buffers (&optional all-p) "Clean up buried and process buffers in the current workspace." - (interactive) - (let ((buffers (doom-buried-buffers))) + (interactive "P") + (let ((buffers (doom-buried-buffers (if all-p (buffer-list))))) (mapc 'kill-buffer buffers) (setq n (+ (doom-kill-process-buffers) (length buffers))) (when (called-interactively-p 'interactive)