From 7dbaf6c570e8b2e14851787385f0efbc62526f22 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 2 May 2016 15:59:30 -0400 Subject: [PATCH] On :killall, delete windows on *scratch* --- core/defuns/defuns-buffers.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/defuns/defuns-buffers.el b/core/defuns/defuns-buffers.el index 34748eaf1..5e7e7654d 100644 --- a/core/defuns/defuns-buffers.el +++ b/core/defuns/defuns-buffers.el @@ -221,8 +221,9 @@ left, create a scratch buffer." "Kill all project buffers. If BANG, kill *all* buffers (in workgroup)." (interactive "") (narf--kill-buffers (narf/get-buffers (not bang))) - (when bang - (delete-other-windows))) + (mapc (lambda (w) (when (eq (window-buffer w) (get-buffer "*scratch*")) + (delete-window w))) + (narf/get-visible-windows))) ;;;###autoload (autoload 'narf:kill-other-buffers "defuns-buffers" nil t) (evil-define-command narf:kill-other-buffers (&optional bang)