amogus2/emacs-dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update minimal-emacs--check-success

Browse Source
This commit is contained in:
James Cherti
2025-03-10 11:41:05 -04:00
parent 0be609bd24
commit 34e926b26c
1 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
early-init.el
View File

@@ -81,18 +81,9 @@ minimalistic appearance during startup.")
"Verify that the Emacs configuration has loaded successfully." "Verify that the Emacs configuration has loaded successfully."
(unless minimal-emacs--success (unless minimal-emacs--success
(cond (cond
((let ((user-init-basename (file-name-nondirectory user-init-file))) (t (error (concat "Configuration error in: '%s'. Debug by starting Emacs "
(and (not (string= user-init-basename "init.el")) "with: emacs --debug-init")
(not (string= user-init-basename "early-init.el")))) minimal-emacs--stage)))))
(error (concat "Emacs ignored loading 'init.el'. Please ensure "
"that files such as ~/.emacs or ~/.emacs.el do not exist, "
"as they may be preventing Emacs from loading the"
" 'init.el' file.")
(expand-file-name "init.el" minimal-emacs-user-directory)))
(error (concat "Configuration error in: '%s'. Debug by starting Emacs "
"with: emacs --debug-init")
minimal-emacs--stage))))
(add-hook 'emacs-startup-hook #'minimal-emacs--check-success 102) (add-hook 'emacs-startup-hook #'minimal-emacs--check-success 102)
(defun minimal-emacs-load-user-init (filename) (defun minimal-emacs-load-user-init (filename)