diff --git a/ports/emacs-mod/build b/ports/emacs-mod/build index 9afa0ba..df34caf 100755 --- a/ports/emacs-mod/build +++ b/ports/emacs-mod/build @@ -23,6 +23,18 @@ cat << EOF > "$1/usr/share/emacs/site-lisp/site-start.el" ;; Needed unless KISS Linux gains librsvg support (setq-default shr-blocked-images ".*\.svg$") + +;; Augment ELPA. +(require 'package) +(add-to-list 'package-archives + '("melpa-stable" . "https://stable.melpa.org/packages/")) + +;; Increase garbage collection during startup. Reduces boot times. +(setq startup/gc-cons-threshold gc-cons-threshold) +(setq gc-cons-threshold most-positive-fixnum) +(defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold)) +(add-hook 'emacs-startup-hook 'startup/reset-gc) + EOF make