Make minimal-emacs-load-user-init display messages when init-file-debug is non-nil

This commit is contained in:
James Cherti
2025-08-27 14:08:43 -04:00
parent 19427b19cc
commit 8f5b2030fd

View File

@@ -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")