Make minimal-emacs-load-user-init display messages when init-file-debug is non-nil
This commit is contained in:
@@ -138,12 +138,11 @@ pre-early-init.el, and post-early-init.el.")
|
|||||||
(let ((init-file (expand-file-name filename
|
(let ((init-file (expand-file-name filename
|
||||||
minimal-emacs-user-directory)))
|
minimal-emacs-user-directory)))
|
||||||
(if (not minimal-emacs-load-compiled-init-files)
|
(if (not minimal-emacs-load-compiled-init-files)
|
||||||
(load init-file :no-error (not (bound-and-true-p init-file-debug))
|
(load init-file :no-error (not init-file-debug) :nosuffix)
|
||||||
:nosuffix)
|
|
||||||
;; Remove the file suffix (.el, .el.gz, etc.) to let the `load' function
|
;; Remove the file suffix (.el, .el.gz, etc.) to let the `load' function
|
||||||
;; select between .el and .elc files.
|
;; select between .el and .elc files.
|
||||||
(setq init-file (minimal-emacs--remove-el-file-suffix init-file))
|
(setq init-file (minimal-emacs--remove-el-file-suffix init-file))
|
||||||
(load init-file :no-error (not (bound-and-true-p init-file-debug))))))
|
(load init-file :no-error (not init-file-debug)))))
|
||||||
|
|
||||||
(minimal-emacs-load-user-init "pre-early-init.el")
|
(minimal-emacs-load-user-init "pre-early-init.el")
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user