Move more code to minimal-emacs-disable-mode-line-during-startup

This commit is contained in:
James Cherti
2025-02-18 15:20:09 -05:00
parent 3bc2059b07
commit 9b114a91ea

View File

@@ -151,7 +151,7 @@ This enhances performance and provide a minimalistic appearance.")
(setq-default mode-line-format nil) (setq-default mode-line-format nil)
(dolist (buf (buffer-list)) (dolist (buf (buffer-list))
(with-current-buffer buf (with-current-buffer buf
(setq mode-line-format nil)))) (setq mode-line-format nil)))
(defun minimal-emacs--startup-load-user-init-file (fn &rest args) (defun minimal-emacs--startup-load-user-init-file (fn &rest args)
"Advice for startup--load-user-init-file to reset mode-line-format." "Advice for startup--load-user-init-file to reset mode-line-format."
@@ -166,7 +166,7 @@ This enhances performance and provide a minimalistic appearance.")
(get 'mode-line-format 'initial-value))))) (get 'mode-line-format 'initial-value)))))
(advice-add 'startup--load-user-init-file :around (advice-add 'startup--load-user-init-file :around
#'minimal-emacs--startup-load-user-init-file)) #'minimal-emacs--startup-load-user-init-file)))
;; Without this, Emacs will try to resize itself to a specific column size ;; Without this, Emacs will try to resize itself to a specific column size
(setq frame-inhibit-implied-resize t) (setq frame-inhibit-implied-resize t)