diff options
author | Case Duckworth | 2022-03-12 11:26:25 -0600 |
---|---|---|
committer | Case Duckworth | 2022-03-12 11:26:25 -0600 |
commit | 31f595fafac75c0c72f0fd2530f9595a263cd58d (patch) | |
tree | 73aa017db544202c101d554ae323895e12dd8b14 /early-init.el | |
parent | Purge org-contacts (diff) | |
parent | Uh (diff) | |
download | emacs-31f595fafac75c0c72f0fd2530f9595a263cd58d.tar.gz emacs-31f595fafac75c0c72f0fd2530f9595a263cd58d.zip |
Merge branch 'main' of https://tildegit.org/acdw/emacs
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 | ||