doom/cleanup-session: don't kill modified buffers
This commit is contained in:
parent
abd8f87e28
commit
d2ca6f65b3
1 changed files with 5 additions and 2 deletions
|
@ -244,8 +244,11 @@ ALL-P (universal argument), clean them up globally."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((buffers (doom-buried-buffers buffer-list))
|
(let ((buffers (doom-buried-buffers buffer-list))
|
||||||
(n 0))
|
(n 0))
|
||||||
(mapc #'kill-buffer buffers)
|
(dolist (buf buffers)
|
||||||
(setq n (+ n (length buffers) (doom/cleanup-buffer-processes)))
|
(unless (buffer-modified-p buf)
|
||||||
|
(kill-buffer buf)
|
||||||
|
(cl-incf n)))
|
||||||
|
(setq n (+ n (doom/cleanup-buffer-processes)))
|
||||||
(dolist (hook doom-cleanup-hook)
|
(dolist (hook doom-cleanup-hook)
|
||||||
(let ((m (funcall hook)))
|
(let ((m (funcall hook)))
|
||||||
(when (integerp m)
|
(when (integerp m)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue