summary refs log tree commit diff stats
path: root/early-init.el
diff options
context:
space:
mode:
authorCase Duckworth2022-02-18 18:18:03 -0600
committerCase Duckworth2022-02-18 18:18:03 -0600
commit7f8a95ea03c3eb0a3bc86f89fd240a7befbcfbd7 (patch)
tree7a4d920ca4f62d88de2142517971b0ee05b28001 /early-init.el
parentNotmuch and stuff (diff)
downloademacs-7f8a95ea03c3eb0a3bc86f89fd240a7befbcfbd7.tar.gz
emacs-7f8a95ea03c3eb0a3bc86f89fd240a7befbcfbd7.zip
Fix some typo stuff
Diffstat (limited to 'early-init.el')
-rw-r--r--early-init.el14
1 files changed, 8 insertions, 6 deletions
diff --git a/early-init.el b/early-init.el index aca65d2..113f261 100644 --- a/early-init.el +++ b/early-init.el
@@ -38,7 +38,7 @@ This applies values in `+emacs--startup-restore-alist'."
38 "Set VARIABLE to VALUE during startup, but restore to RESTORE. 38 "Set VARIABLE to VALUE during startup, but restore to RESTORE.
39If RESTORE is nil or not passed, save the original value and 39If RESTORE is nil or not passed, save the original value and
40restore that." 40restore that."
41 (unless nil ;after-init-time 41 (unless after-init-time
42 (setf (alist-get variable +emacs--startup-restore-alist) 42 (setf (alist-get variable +emacs--startup-restore-alist)
43 (or restore (symbol-value variable))) 43 (or restore (symbol-value variable)))
44 (set-default variable value))) 44 (set-default variable value)))
@@ -51,7 +51,8 @@ restore that."
51(+set-during-startup 'inhibit-message t) 51(+set-during-startup 'inhibit-message t)
52 52
53;; Debug during init 53;; Debug during init
54(+set-during-startup 'debug-on-error t) 54(unless (eq debug-on-error 'startup)
55 (+set-during-startup 'debug-on-error 'init))
55 56
56;;; Set up extra load paths and functionality 57;;; Set up extra load paths and functionality
57 58
@@ -138,10 +139,11 @@ See `no-littering' for examples.")
138;; Setup `setup' 139;; Setup `setup'
139 140
140(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors) 141(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors)
141;; (advice-add 'setup :before (defun +setup-before (&rest args) 142(unless (memq debug-on-error '(nil init))
142;; (message "Setup: %S" args))) 143 (define-advice setup (:before (head &rest args) +setup-before)
143;; (advice-add 'setup :after (defun +setup-after (&rest args) 144 (message "[Setup] %S" head))
144;; (message "Setup: %S...Done." args))) 145 (define-advice setup (:after (head &rest args) +setup-after)
146 (message "[Setup] %S...done" head)))
145 147
146;;; Appendix 148;;; Appendix
147 149