tweak: load site-lisp verbosely in debug mode

This commit is contained in:
Henrik Lissner 2024-09-11 13:58:01 -04:00
parent 546e56f1fa
commit 6d7a39c482
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -519,10 +519,11 @@ users).")
(progn
(when (setq site-run-file (get 'site-run-file 'initial-value))
(let ((inhibit-startup-screen inhibit-startup-screen))
(letf! ((defun load-file (file) (load file nil 'nomessage))
(letf! ((defun load-file (file)
(load file nil (not init-file-debug)))
(defun load (file &optional noerror _nomessage &rest args)
(apply load file noerror t args)))
(load site-run-file t t))))
(apply load file noerror (not init-file-debug) args)))
(load site-run-file t))))
(apply fn args))
;; Now it's safe to be verbose.
(setq-default inhibit-message nil)