33 lines
1.1 KiB
EmacsLisp
33 lines
1.1 KiB
EmacsLisp
;;; init.el --- Emacs Initialization File
|
|
;;
|
|
;; Copyright (c) 2017 Wojciech Kozlowski
|
|
;;
|
|
;; Author: Wojciech Kozlowski <wojciech.kozlowski@vivaldi.net>
|
|
;; URL: https://gitlab.wojciechkozlowski.eu/config/emacs.d
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
;; ----------------------------------------------------------------------------
|
|
;; Run init without garbage collection.
|
|
;; ----------------------------------------------------------------------------
|
|
|
|
(let ((gc-cons-threshold most-positive-fixnum))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Configure garbage collection.
|
|
;;
|
|
;; Based on advice from:
|
|
;; http://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(defun my-minibuffer-setup-hook ()
|
|
(setq gc-cons-threshold most-positive-fixnum))
|
|
|
|
(defun my-minibuffer-exit-hook ()
|
|
(setq gc-cons-threshold 800000))
|
|
|
|
(add-hook 'minibuffer-setup-hook #'my-minibuffer-setup-hook)
|
|
(add-hook 'minibuffer-exit-hook #'my-minibuffer-exit-hook)
|
|
|
|
) ;; ((gc-cons-threshold most-positive-fixnum))
|