From d80802d3c94f8d442657e79bf7805bf0bd556593 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 14 Jan 2019 00:52:31 -0500 Subject: [PATCH] doom/cleanup-session: don't kill processes by default --- core/autoload/buffers.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/core/autoload/buffers.el b/core/autoload/buffers.el index 324fcd6f4..46241d4ff 100644 --- a/core/autoload/buffers.el +++ b/core/autoload/buffers.el @@ -267,7 +267,7 @@ that belong to the current project." (unless project-p (delete-other-windows)) (switch-to-buffer (doom-fallback-buffer)) - (doom/cleanup-session (if project-p (doom-project-buffer-list)))) + (doom/cleanup-session nil (if project-p (doom-project-buffer-list)))) ;;;###autoload (defun doom/kill-other-buffers (&optional project-p) @@ -299,17 +299,18 @@ project." (message "Killed %s buffers" n)))) ;;;###autoload -(defun doom/cleanup-session (&optional buffer-list) +(defun doom/cleanup-session (arg &optional buffer-list) "Clean up buried buries and orphaned processes in the current workspace. If ALL-P (universal argument), clean them up globally." - (interactive) + (interactive "P") (let ((buffers (doom-buried-buffers buffer-list)) (n 0)) (dolist (buf buffers) (unless (buffer-modified-p buf) (kill-buffer buf) (cl-incf n))) - (setq n (+ n (doom/cleanup-buffer-processes))) + (when arg + (setq n (+ n (doom/cleanup-buffer-processes)))) (dolist (hook doom-cleanup-hook) (let ((m (funcall hook))) (when (integerp m)