From be3c715bcb8ede522e6cb88e2f67123206d73d9a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 7 Oct 2020 19:15:19 -0500
Subject: Change gc-cons-threshold ammount after init

---
 early-init.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index 78b9972..b0314ae 100644
--- a/early-init.el
+++ b/early-init.el
@@ -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"))
-- 
cgit 1.4.1-21-gabe81