emacs: better disable GC during startup

Signed-off-by: Miquel Sabaté Solà <msabate@suse.com>

1 files changed, 15 insertions, 5 deletions

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index 640fd89..407df06 100644
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -83,11 +83,21 @@ Temporarily reduce garbage collection so startup time is lower. Idea taken from
 [[https://github.com/purcell][@purcell]].
 
 #+BEGIN_SRC elisp
-  (defconst mssola-initial-gc-cons-threshold gc-cons-threshold
-    "Initial value of `gc-cons-threshold' at start-up time.")
-  (setq gc-cons-threshold (* 1024 1024 1024))
-  (add-hook 'after-init-hook
-            (lambda () (setq gc-cons-threshold mssola-initial-gc-cons-threshold)))
+(defconst mssola-initial-gc-cons-threshold gc-cons-threshold
+  "Initial value of `gc-cons-threshold' at start-up time.")
+
+(defconst mssola-initial-gc-cons-percentage gc-cons-percentage
+  "Initial value of `gc-cons-percentage' at start-up time.")
+
+;; Completely disable the GC by having a ginormous threshold.
+(setq gc-cons-threshold most-positive-fixnum
+      gc-cons-percentage 0.6)
+
+;; Enable the GC back again to its
+(add-hook 'after-init-hook
+          (lambda ()
+            (setq gc-cons-threshold mssola-initial-gc-cons-threshold
+                  gc-cons-percentage mssola-initial-gc-cons-percentage)))
 #+END_SRC
 
 User name and email.