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

Restore gc-cons-threshold only if the user has not overridden it.

Browse Source
This commit is contained in:
James Cherti
2025-06-15 12:27:27 -04:00
parent c695bfb9da
commit 5be624f973
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
early-init.el
View File

@@ -49,7 +49,7 @@ This variable holds a list of Emacs UI features that can be enabled:
(defvar minimal-emacs-optimize-startup-gc t (defvar minimal-emacs-optimize-startup-gc t
"If non-nil, increase `gc-cons-threshold' during startup to reduce pauses. "If non-nil, increase `gc-cons-threshold' during startup to reduce pauses.
After Emacs finishes loading, `gc-cons-threshold' is restored to the value After Emacs finishes loading, `gc-cons-threshold' is restored to the value
stored in `minimal-emacs--restore-gc-cons-threshold'.") stored in `minimal-emacs-gc-cons-threshold'.")
(defvar minimal-emacs-gc-cons-threshold (* 32 1024 1024) (defvar minimal-emacs-gc-cons-threshold (* 32 1024 1024)
"Value to which `gc-cons-threshold' is set after Emacs startup. "Value to which `gc-cons-threshold' is set after Emacs startup.
@@ -165,9 +165,13 @@ pre-early-init.el, and post-early-init.el.")
(setq gc-cons-threshold minimal-emacs-gc-cons-threshold))) (setq gc-cons-threshold minimal-emacs-gc-cons-threshold)))
(if minimal-emacs-optimize-startup-gc (if minimal-emacs-optimize-startup-gc
;; `gc-cons-threshold' is managed by minimal-emacs.d
(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'. ;; gc-cons-threshold is not managed by minimal-emacs.d.
(setq gc-cons-threshold minimal-emacs--backup-gc-cons-threshold)) ;; If it is equal to `most-positive-fixnum', this indicates that the user has
;; not overridden the value in their `pre-early-init.el' configuration.
(when (= gc-cons-threshold most-positive-fixnum)
(setq gc-cons-threshold minimal-emacs--backup-gc-cons-threshold)))
;;; Native compilation and Byte compilation ;;; Native compilation and Byte compilation