tweak: load site-lisp verbosely in debug mode
This commit is contained in:
parent
546e56f1fa
commit
6d7a39c482
1 changed files with 4 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue