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

Update the order of mode-line-format sexp

Browse Source
This commit is contained in:
James Cherti
2025-02-02 21:25:39 -05:00
parent 9ae4cb9f56
commit a3a37c233d
1 changed files with 15 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
early-init.el
View File

@@ -120,7 +120,6 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
101)) 101))
(unless noninteractive (unless noninteractive
(unless minimal-emacs-debug
(unless minimal-emacs-debug (unless minimal-emacs-debug
;; Suppress redisplay and redraw during startup to avoid delays and ;; Suppress redisplay and redraw during startup to avoid delays and
;; prevent flashing an unstyled Emacs frame. ;; prevent flashing an unstyled Emacs frame.
@@ -135,15 +134,14 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(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 (add-hook 'post-command-hook
#'minimal-emacs--reset-inhibited-vars-h -100)) #'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)
(dolist (buf (buffer-list))
(with-current-buffer buf
(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."