diff options
| author | Case Duckworth | 2022-03-11 20:04:05 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-03-11 20:04:05 -0600 |
| commit | f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34 (patch) | |
| tree | c5cf0551e9e25e5238f474fd6ad44fbe6d155e56 /early-init.el | |
| parent | Add snippets (diff) | |
| download | emacs-f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34.tar.gz emacs-f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34.zip | |
Uh
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 | ||