From 86fc398a1e808c73f5727f729460ccab01258dd8 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 4 Aug 2017 10:17:36 +0200
Subject: Emacs: Move post-startup de-optimisation code to top of file

---
 emacs/.emacs.d/init.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'emacs/.emacs.d/init.el')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index ffde904a..fb5a75ed 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -17,6 +17,10 @@
 (setq gc-cons-threshold 100000000)
 (defvar file-name-handler-alist-backup file-name-handler-alist)
 (setq file-name-handler-alist nil)
+(add-hook 'after-init-hook
+          #'(lambda ()
+              (setq gc-cons-threshold 800000
+                    file-name-handler-alist file-name-handler-alist-backup)))
 (remove-hook 'find-file-hooks #'vc-refresh-state)
 ;; #+END_SRC
 
@@ -2822,8 +2826,6 @@
   :if (not (daemonp))
   :config (unless (server-running-p server-name)
             (server-start)))
-(setq gc-cons-threshold 800000
-      file-name-handler-alist file-name-handler-alist-backup)
 ;; #+END_SRC
 
 ;; Local Variables:
-- 
cgit 1.4.1