From f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 11 Mar 2022 20:04:05 -0600
Subject: Uh

---
 early-init.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index 113f261..e50d99e 100644
--- a/early-init.el
+++ b/early-init.el
@@ -140,10 +140,9 @@ See `no-littering' for examples.")
 
 (add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors)
 (unless (memq debug-on-error '(nil init))
-    (define-advice setup (:before (head &rest args) +setup-before)
-        (message "[Setup] %S" head))
-  (define-advice setup (:after (head &rest args) +setup-after)
-    (message "[Setup] %S...done" head)))
+  (define-advice setup (:around (fn head &rest args) +setup-report)
+    (+with-progress ((format "[Setup] %S..." head))
+      (apply fn head args))))
 
 ;;; Appendix
 
-- 
cgit 1.4.1-21-gabe81