Fix artifacts

This commit is contained in:
James Cherti
2024-10-14 10:03:42 -04:00
parent 1ba1494630
commit 42231708aa

View File

@@ -115,18 +115,21 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(unless noninteractive (unless noninteractive
(unless minimal-emacs-debug (unless minimal-emacs-debug
;; Suppress redisplay and redraw during startup to avoid delays and (unless minimal-emacs-debug
;; prevent flashing an unstyled Emacs frame. ;; Suppress redisplay and redraw during startup to avoid delays and
(setq-default inhibit-redisplay t ;; prevent flashing an unstyled Emacs frame.
inhibit-message t) ;; (setq-default inhibit-redisplay t) ; Can cause artifacts
(setq-default inhibit-message t)
;; Reset the above variables to prevent Emacs from appearing frozen or ;; Reset the above variables to prevent Emacs from appearing frozen or
;; visually corrupted after startup or if a startup error occurs. ;; 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) ; Can cause artifacts
inhibit-message nil) (setq-default 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)) (dolist (buf (buffer-list))
(with-current-buffer buf (with-current-buffer buf