forked from colonelpanic/dotfiles
[Emacs] Improve customization of benchmarking
This commit is contained in:
parent
d3bdab7304
commit
d75b6ce30e
@ -233,9 +233,15 @@ This appears here so that it can accurately benchmark as much of
|
|||||||
startup as possible.
|
startup as possible.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defvar imalison:do-benchmark)
|
(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
|
(use-package benchmark-init
|
||||||
:if (bound-and-true-p imalison:do-benchmark)
|
:if imalison:do-benchmark
|
||||||
:demand t)
|
:demand t
|
||||||
|
:config
|
||||||
|
(setq max-specpdl-size 99999999))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** GUI Disables
|
** GUI Disables
|
||||||
Death to any gui elements in emacs! Do this EARLY so that emacs
|
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 custom-after-file) (load custom-after-file))
|
||||||
(when (file-exists-p machine-custom) (load machine-custom))
|
(when (file-exists-p machine-custom) (load machine-custom))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
* Finish Benchmarking
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(when imalison:do-benchmark (benchmark-init/deactivate))
|
||||||
|
#+END_SRC
|
||||||
|
Loading…
Reference in New Issue
Block a user