diff options
-rw-r--r-- | early-init.el | 3 | ||||
-rw-r--r-- | lisp/acdw.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/early-init.el b/early-init.el index 2a6e068..ad1d856 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -32,7 +32,8 @@ | |||
32 | after init.") | 32 | after init.") |
33 | 33 | ||
34 | (setq file-name-handler-alist nil) | 34 | (setq file-name-handler-alist nil) |
35 | (acdw/gc-disable) | 35 | (setq gc-cons-threshold (* 800 1024 1024) |
36 | gc-cons-percentage 0.6) | ||
36 | 37 | ||
37 | (add-hook 'after-init-hook | 38 | (add-hook 'after-init-hook |
38 | (defun hook--post-init-reset () | 39 | (defun hook--post-init-reset () |
diff --git a/lisp/acdw.el b/lisp/acdw.el index 9387cf1..35d5ac1 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -57,7 +57,7 @@ Ready for use with `after-focus-change-function'." | |||
57 | 57 | ||
58 | ;;; Garbage collection hacks | 58 | ;;; Garbage collection hacks |
59 | 59 | ||
60 | (defconst acdw/gc-cons-threshold-basis (* 800 1024 1024) | 60 | (defconst acdw/gc-cons-threshold-basis (* 800 1024) |
61 | "Basis value for `gc-cons-threshold' to return to after jumping. | 61 | "Basis value for `gc-cons-threshold' to return to after jumping. |
62 | 800 KB is Emacs's default.") | 62 | 800 KB is Emacs's default.") |
63 | 63 | ||