From d73ccba310d8d80e8ac23507153e3000b6327a7f Mon Sep 17 00:00:00 2001
From: Mid Favila <midfavila@sdf.org>
Date: Tue, 20 Jul 2021 00:10:52 +0000
Subject: [PATCH] Update my emacs-mod build.

---
 ports/emacs-mod/build | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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