diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 7 |
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.") | |||
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 | ||