acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix some typo stuff

This commit is contained in:
Case Duckworth 2022-02-18 18:18:03 -06:00
parent c031326367
commit 7f8a95ea03
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
early-init.el
View File

@ -38,7 +38,7 @@ This applies values in `+emacs--startup-restore-alist'."
"Set VARIABLE to VALUE during startup, but restore to RESTORE.
If RESTORE is nil or not passed, save the original value and
restore that."
(unless nil ;after-init-time
(unless after-init-time
(setf (alist-get variable +emacs--startup-restore-alist)
(or restore (symbol-value variable)))
(set-default variable value)))
@ -51,7 +51,8 @@ restore that."
(+set-during-startup 'inhibit-message t)
;; Debug during init
(+set-during-startup 'debug-on-error t)
(unless (eq debug-on-error 'startup)
(+set-during-startup 'debug-on-error 'init))
;;; Set up extra load paths and functionality
@ -138,10 +139,11 @@ See `no-littering' for examples.")
;; Setup `setup'
(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors)
;; (advice-add 'setup :before (defun +setup-before (&rest args)
;; (message "Setup: %S" args)))
;; (advice-add 'setup :after (defun +setup-after (&rest args)
;; (message "Setup: %S...Done." args)))
(unless (memq debug-on-error '(nil init))
(define-advice setup (:before (head &rest args) +setup-before)
(message "[Setup] %S" head))
(define-advice setup (:after (head &rest args) +setup-after)
(message "[Setup] %S...done" head)))
;;; Appendix