From 90d5fca299d70189c9fcae0594383989b5f4649d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 28 Jul 2015 12:28:22 +0200 Subject: [PATCH] Fix narf:kill-buried-buffers and narf/get-buried-buffers --- core/lib/defuns-buffers.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/core/lib/defuns-buffers.el b/core/lib/defuns-buffers.el index 4128e374f..e0dfadae8 100644 --- a/core/lib/defuns-buffers.el +++ b/core/lib/defuns-buffers.el @@ -68,7 +68,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" ;;;###autoload (defun narf/get-buried-buffers (&optional buffer-list) "Get a list of buffers that are buried (i.e. not visible)" - (-filter #'get-buffer-window (or buffer-list (narf/get-buffers)))) + (--filter (not (get-buffer-window it)) (or buffer-list (narf/get-buffers)))) ;;;###autoload (defun narf/get-matching-buffers (pattern &optional buffer-list) @@ -78,7 +78,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" ;;;###autoload (defun narf/get-real-buffers (&optional buffer-list) - (-filter 'narf/real-buffer-p (or buffer-list (narf/get-buffers)))) + (-filter #'narf/real-buffer-p (or buffer-list (narf/get-buffers)))) ;;;###autoload (defun narf:kill-unreal-buffers () @@ -167,9 +167,9 @@ left, create a scratch buffer." (evil-define-command narf:kill-buried-buffers (&optional bang) :repeat nil (interactive "") - (narf:kill-buried-buffers) - (mapc 'kill-buffer - (narf/get-buried-buffers (if bang (projectile-project-buffers) (narf/get-buffers))))) + (let ((buffers (narf/get-buried-buffers (if bang (projectile-project-buffers) (narf/get-buffers))))) + (message "Cleaned up %s buffers" (length buffers)) + (mapc 'kill-buffer buffers))) ;;;###autoload (autoload 'narf:kill-all-buffers "defuns-buffers" nil t) (evil-define-command narf:kill-all-buffers (&optional bang)