From ff73eb487aed418f3712a10669269ffac529572a Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 25 Dec 2020 13:55:10 +0900
Subject: [PATCH] Add more hacks

---
 emacs.el | 24 ++++++++++++++++++++----
 1 file changed, 20 insertions(+), 4 deletions(-)

diff --git a/emacs.el b/emacs.el
index 9f7755a..1e40015 100644
--- a/emacs.el
+++ b/emacs.el
@@ -11,6 +11,18 @@
 
 (setq debug-on-error t)
 
+(when (getenv "_EMACS_EL_PROFILE")
+  (eval-and-compile
+    (require 'profiler))
+  (profiler-start 'cpu))
+
+;; https://emacs-jp.github.io/tips/startup-optimization
+;; Temporarily change values to speed up initialization
+(defconst my-orig-file-name-handler-alist file-name-handler-alist)
+(setq file-name-handler-alist nil)
+(defconst my-orig-gc-cons-threshold gc-cons-threshold)
+(setq gc-cons-threshold most-positive-fixnum)
+
 ;; make directories
 (unless (file-directory-p (expand-file-name user-emacs-directory))
   (make-directory (expand-file-name user-emacs-directory)))
@@ -25,8 +37,6 @@
 
 
 
-;; (profiler-start 'cpu)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Some macros for internals
 
@@ -3068,12 +3078,18 @@ Any output will be written to current buffer."
   (mmv-draw-mark))
 
 
+;; https://emacs-jp.github.io/tips/startup-optimization
+;; Restore to original value
+(setq gc-cons-threshold my-orig-gc-cons-threshold)
+(setq file-name-handler-alist my-orig-file-name-handler-alist)
+
+(when (getenv "_EMACS_EL_PROFILE")
+  (profiler-report)
+  (profiler-stop))
 
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
 ;; flycheck-checker: emacs-lisp
 ;; End:
 
-;; (profiler-report)
-
 ;;; emancs.el ends here