From d2ca6f65b3533b769de500ea6c5a55c3d7a92b0a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 30 May 2018 23:06:13 +0200 Subject: [PATCH] doom/cleanup-session: don't kill modified buffers --- core/autoload/buffers.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/core/autoload/buffers.el b/core/autoload/buffers.el index ed44c5da9..e008dd3b0 100644 --- a/core/autoload/buffers.el +++ b/core/autoload/buffers.el @@ -244,8 +244,11 @@ ALL-P (universal argument), clean them up globally." (interactive) (let ((buffers (doom-buried-buffers buffer-list)) (n 0)) - (mapc #'kill-buffer buffers) - (setq n (+ n (length buffers) (doom/cleanup-buffer-processes))) + (dolist (buf buffers) + (unless (buffer-modified-p buf) + (kill-buffer buf) + (cl-incf n))) + (setq n (+ n (doom/cleanup-buffer-processes))) (dolist (hook doom-cleanup-hook) (let ((m (funcall hook))) (when (integerp m)