From a6c3b48a7bac0b52778a39d95f04a5f6d3ac84ba Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Mon, 2 Mar 2020 15:39:51 +0100 Subject: Emacs: optimise GC during minibuffer usage --- user/emacs/.emacs.d/init.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'user/emacs/.emacs.d/init.el') diff --git a/user/emacs/.emacs.d/init.el b/user/emacs/.emacs.d/init.el index 7c9b6e2b..b511e907 100644 --- a/user/emacs/.emacs.d/init.el +++ b/user/emacs/.emacs.d/init.el @@ -7,11 +7,14 @@ evil-want-keybinding nil frame-inhibit-implied-resize t) -(setq gc-cons-threshold most-positive-fixnum - gc-cons-percentage 0.6) -(add-hook 'after-init-hook (lambda () - (setq gc-cons-threshold (* 16 1024 1024) - gc-cons-percentage 0.1))) +(let ((default-gc-cons-threshold (* 16 1024 1024))) + (setq gc-cons-threshold most-positive-fixnum + gc-cons-percentage 0.6) + (add-hook 'minibuffer-setup-hook (lambda () (setq gc-cons-threshold most-positive-fixnum))) + (add-hook 'minibuffer-exit-hook (lambda () (setq gc-cons-threshold default-gc-cons-threshold))) + (add-hook 'after-init-hook (lambda () + (setq gc-cons-threshold default-gc-cons-threshold + gc-cons-percentage 0.1)))) (package-initialize) -- cgit 1.4.1