awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

doom/cleanup-session: don't kill modified buffers

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-30 23:06:13 +02:00
parent abd8f87e28
commit d2ca6f65b3
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/autoload/buffers.el
View File

@ -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)