Simplify minimal-emacs-load-user-init
This commit is contained in:
@@ -94,11 +94,9 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
|
|||||||
|
|
||||||
(defun minimal-emacs-load-user-init (filename)
|
(defun minimal-emacs-load-user-init (filename)
|
||||||
"Execute a file of Lisp code named FILENAME."
|
"Execute a file of Lisp code named FILENAME."
|
||||||
(let ((init-file (expand-file-name filename
|
(let* ((init-file (expand-file-name filename
|
||||||
minimal-emacs-user-directory)))
|
minimal-emacs-user-directory)))
|
||||||
(when (file-exists-p init-file)
|
(load init-file :no-error :no-message)))
|
||||||
(setq minimal-emacs--stage (file-name-nondirectory init-file))
|
|
||||||
(load init-file nil t))))
|
|
||||||
|
|
||||||
(minimal-emacs-load-user-init "pre-early-init")
|
(minimal-emacs-load-user-init "pre-early-init")
|
||||||
(setq minimal-emacs--stage "early-init.el")
|
(setq minimal-emacs--stage "early-init.el")
|
||||||
|
|||||||
Reference in New Issue
Block a user