[Emacs] Improve customization of benchmarking

This commit is contained in:
Ivan Malison 2017-08-23 15:50:45 -07:00
parent d3bdab7304
commit d75b6ce30e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -233,9 +233,15 @@ This appears here so that it can accurately benchmark as much of
startup as possible.
#+BEGIN_SRC emacs-lisp
(defvar imalison:do-benchmark)
(let ((bench-file (concat (file-name-directory user-init-file) "benchmark.el")))
(when (file-exists-p bench-file) (load bench-file)))
(use-package benchmark-init
:if (bound-and-true-p imalison:do-benchmark)
:demand t)
:if imalison:do-benchmark
:demand t
:config
(setq max-specpdl-size 99999999))
#+END_SRC
** GUI Disables
Death to any gui elements in emacs! Do this EARLY so that emacs
@ -4963,3 +4969,7 @@ load-theme hook (See the heading below).
(when (file-exists-p custom-after-file) (load custom-after-file))
(when (file-exists-p machine-custom) (load machine-custom))
#+END_SRC
* Finish Benchmarking
#+BEGIN_SRC emacs-lisp
(when imalison:do-benchmark (benchmark-init/deactivate))
#+END_SRC