about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2020-10-07 19:15:19 -0500
committerCase Duckworth2020-10-07 19:15:19 -0500
commitbe3c715bcb8ede522e6cb88e2f67123206d73d9a (patch)
treea858d766c1a12c959951260232166dd1830f305d
parentChange file modes (diff)
downloademacs-be3c715bcb8ede522e6cb88e2f67123206d73d9a.tar.gz
emacs-be3c715bcb8ede522e6cb88e2f67123206d73d9a.zip
Change gc-cons-threshold ammount after init
-rw-r--r--early-init.el11
1 files changed, 8 insertions, 3 deletions
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 @@
7;; Other than that, there's some other init stuff that needs to happen as early 7;; Other than that, there's some other init stuff that needs to happen as early
8;; as possible -- think bootstrap-level. 8;; as possible -- think bootstrap-level.
9 9
10;;; Settings
11
12;; (setq debug-on-error t)
13
14(setq load-prefer-newer t)
15
10;;; Speed up startup 16;;; Speed up startup
11(setq gc-cons-threshold most-positive-fixnum) 17(setq gc-cons-threshold most-positive-fixnum)
18(defconst *acdw/gc-cons* 800000 "'Regular' garbage collection amount")
12 19
13(defvar file-name-handler-alist-old file-name-handler-alist) 20(defvar file-name-handler-alist-old file-name-handler-alist)
14(setq file-name-handler-alist nil) 21(setq file-name-handler-alist nil)
@@ -21,12 +28,10 @@
21(add-hook 'after-init-hook 28(add-hook 'after-init-hook
22 (lambda () 29 (lambda ()
23 (setq file-name-handler-alist file-name-handler-alist-old) 30 (setq file-name-handler-alist file-name-handler-alist-old)
24 (setq gc-cons-threshold (* 32 1024 1024)) 31 (setq gc-cons-threshold *acdw/gc-cons*)
25 (garbage-collect)) 32 (garbage-collect))
26 t) 33 t)
27 34
28;; (setq debug-on-error t)
29
30;;; Define the platforms I work on 35;;; Define the platforms I work on
31(defconst *acdw/at-work* (eq system-type 'windows-nt)) 36(defconst *acdw/at-work* (eq system-type 'windows-nt))
32(defconst *acdw/at-larry* (string= (system-name) "larry")) 37(defconst *acdw/at-larry* (string= (system-name) "larry"))