Move more code to minimal-emacs-disable-mode-line-during-startup
This commit is contained in:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user