acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Change gc-cons-threshold ammount after init

This commit is contained in:
Case Duckworth 2020-10-07 19:15:19 -05:00
parent 5669a68eeb
commit be3c715bcb
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
early-init.el
View File

@ -7,8 +7,15 @@
;; Other than that, there's some other init stuff that needs to happen as early
;; as possible -- think bootstrap-level.
;;; Settings
;; (setq debug-on-error t)
(setq load-prefer-newer t)
;;; Speed up startup
(setq gc-cons-threshold most-positive-fixnum)
(defconst *acdw/gc-cons* 800000 "'Regular' garbage collection amount")
(defvar file-name-handler-alist-old file-name-handler-alist)
(setq file-name-handler-alist nil)
@ -21,12 +28,10 @@
(add-hook 'after-init-hook
(lambda ()
(setq file-name-handler-alist file-name-handler-alist-old)
(setq gc-cons-threshold (* 32 1024 1024))
(setq gc-cons-threshold *acdw/gc-cons*)
(garbage-collect))
t)
;; (setq debug-on-error t)
;;; Define the platforms I work on
(defconst *acdw/at-work* (eq system-type 'windows-nt))
(defconst *acdw/at-larry* (string= (system-name) "larry"))