diff --git a/early-init.el b/early-init.el index da91ba904..6317c3e93 100644 --- a/early-init.el +++ b/early-init.el @@ -49,7 +49,19 @@ (lambda () (setq-default inhibit-redisplay nil inhibit-message nil) - (redisplay)))) + (redisplay))) + + ;; Site files tend to use `load-file', which emits "Loading X..." messages in + ;; the echo area, which in turn triggers a redisplay. Redisplays can have a + ;; substantial effect on startup times and in this case happens so early that + ;; Emacs may flash white while starting up. + (define-advice load-file (:override (file) silence) + (load file nil 'nomessage)) + + ;; Undo our `load-file' advice above, to limit the scope of any edge cases it + ;; may introduce down the road. + (define-advice startup--load-user-init-file (:before (&rest _) init-doom) + (advice-remove #'load-file #'load-file@silence))) ;;