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

Add option to specify wait time before restoring gc-cons-threshold

Browse Source
This commit is contained in:
James Cherti
2025-06-12 11:49:16 -04:00
parent 758b66736e
commit cbe668e133
1 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
early-init.el
View File

@@ -22,6 +22,13 @@
;;; Code: ;;; Code:
;;; Internal variables
(defvar minimal-emacs--backup-gc-cons-threshold gc-cons-threshold
"Backup of the original value of `gc-cons-threshold' before startup.")
(setq gc-cons-threshold most-positive-fixnum)
;;; Variables ;;; Variables
(defvar minimal-emacs-ui-features '() (defvar minimal-emacs-ui-features '()
@@ -48,6 +55,9 @@ stored in `minimal-emacs--restore-gc-cons-threshold'.")
"Value to which `gc-cons-threshold' is set after Emacs startup. "Value to which `gc-cons-threshold' is set after Emacs startup.
Ignored if `minimal-emacs-optimize-startup-gc' is nil.") Ignored if `minimal-emacs-optimize-startup-gc' is nil.")
(defvar minimal-emacs-gc-cons-threshold-restore-delay nil
"Number of seconds to wait before restoring `gc-cons-threshold'.")
(defvar minimal-emacs-inhibit-redisplay-during-startup nil (defvar minimal-emacs-inhibit-redisplay-during-startup nil
"Suppress redisplay during startup to improve performance. "Suppress redisplay during startup to improve performance.
This prevents visual updates while Emacs initializes. The tradeoff is that you This prevents visual updates while Emacs initializes. The tradeoff is that you
@@ -146,12 +156,18 @@ pre-early-init.el, and post-early-init.el.")
(setq garbage-collection-messages minimal-emacs-debug) (setq garbage-collection-messages minimal-emacs-debug)
(defun minimal-emacs--restore-gc-cons-threshold () (defun minimal-emacs--restore-gc-cons-threshold ()
"Restore `minimal-emacs-gc-cons-threshold'." "Restore `gc-cons-threshold' to `minimal-emacs-gc-cons-threshold'."
(setq gc-cons-threshold minimal-emacs-gc-cons-threshold)) (if (bound-and-true-p minimal-emacs-gc-cons-threshold-restore-delay)
;; Defer garbage collection during initialization to avoid 2 collections.
(run-at-time
minimal-emacs-gc-cons-threshold-restore-delay nil
(lambda () (setq gc-cons-threshold minimal-emacs-gc-cons-threshold)))
(setq gc-cons-threshold minimal-emacs-gc-cons-threshold)))
(when minimal-emacs-optimize-startup-gc (if minimal-emacs-optimize-startup-gc
(setq gc-cons-threshold most-positive-fixnum) (add-hook 'emacs-startup-hook #'minimal-emacs--restore-gc-cons-threshold 105)
(add-hook 'emacs-startup-hook #'minimal-emacs--restore-gc-cons-threshold 105)) ;; The user chose not to modify `gc-cons-threshold'.
(setq gc-cons-threshold minimal-emacs--backup-gc-cons-threshold))
;;; Native compilation and Byte compilation ;;; Native compilation and Byte compilation