1 files changed, 3 insertions, 4 deletions
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)
+  (define-advice setup (:around (fn head &rest args) +setup-report)
-        (message "[Setup] %S" head))
+    (+with-progress ((format "[Setup] %S..." head))
-  (define-advice setup (:after (head &rest args) +setup-after)
+      (apply fn head args))))
-    (message "[Setup] %S...done" head)))
 ;;; Appendix

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.")
140		140
141	(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors)	141	(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors)
142	(unless (memq debug-on-error '(nil init))	142	(unless (memq debug-on-error '(nil init))
143	(define-advice setup (:before (head &rest args) +setup-before)	143	(define-advice setup (:around (fn head &rest args) +setup-report)
144	(message "[Setup] %S" head))	144	(+with-progress ((format "[Setup] %S..." head))
145	(define-advice setup (:after (head &rest args) +setup-after)	145	(apply fn head args))))
146	(message "[Setup] %S...done" head)))
147		146
148	;;; Appendix	147	;;; Appendix
149		148