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