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

Set mode-line-format nil to all initial buffers

Browse Source
This commit is contained in:
James Cherti
2024-09-16 09:00:22 -04:00
parent 70d9518e29
commit 969d021476
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
early-init.el
View File

@@ -143,16 +143,23 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(unless noninteractive (unless noninteractive
(unless minimal-emacs-debug (unless minimal-emacs-debug
;; Disable mode-line-format during init ;; Suppress redisplay and redraw during startup to avoid delays and
;; prevent flashing an unstyled Emacs frame.
(setq-default inhibit-redisplay t (setq-default inhibit-redisplay t
inhibit-message t) inhibit-message t)
;; Reset the above variables to prevent Emacs from appearing frozen or
;; visually corrupted after startup or if a startup error occurs.
(defun minimal-emacs--reset-inhibited-vars-h () (defun minimal-emacs--reset-inhibited-vars-h ()
(setq-default inhibit-redisplay nil (setq-default inhibit-redisplay nil
;; Inhibiting `message' only prevents redraws and
inhibit-message nil) inhibit-message nil)
(remove-hook 'post-command-hook #'minimal-emacs--reset-inhibited-vars-h)) (remove-hook 'post-command-hook #'minimal-emacs--reset-inhibited-vars-h))
(add-hook 'post-command-hook #'minimal-emacs--reset-inhibited-vars-h -100) (add-hook 'post-command-hook #'minimal-emacs--reset-inhibited-vars-h -100)
(dolist (buf (buffer-list))
(with-current-buffer buf
(setq mode-line-format nil)))
(put 'mode-line-format 'initial-value (put 'mode-line-format 'initial-value
(default-toplevel-value 'mode-line-format)) (default-toplevel-value 'mode-line-format))
(setq-default mode-line-format nil) (setq-default mode-line-format nil)