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)