Emacs: optimise GC during minibuffer usage
Alan Pearce alan@alanpearce.eu
Mon, 02 Mar 2020 15:39:51 +0100
1 files changed, 8 insertions(+), 5 deletions(-)
jump to
M user/emacs/.emacs.d/init.el → user/emacs/.emacs.d/init.el
@@ -7,11 +7,14 @@ package-enable-at-startup nil 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)