minor speed improvements

This commit is contained in:
mir 2024-01-23 18:44:23 -09:00
parent 8c1171b018
commit 160da56845

View File

@ -10,6 +10,8 @@
;;; Code:
(setq gc-cons-threshold (* 8 5000 5000))
(setq load-prefer-newer t) ; why ever use stale code, ever?
;; Load the files that I put my settings in...
(defvar mir-directory
@ -27,7 +29,8 @@
;; do the things
(add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
(if (display-graphic-p) (mir/graphical-setup))
(if (display-graphic-p)
(add-hook 'elpaca-after-init-hook #'mir/graphical-setup))
;; Control backups/swapfiles
(defvar backup-directory
@ -93,7 +96,7 @@
(setq debug-on-error nil)
;; lower gc threshold again
(setq gc-cons-threshold (* 2 1000 1000))
(setq gc-cons-threshold (* 2 100 1000))
;; (add-function :before #'after-focus-change-function #'garbage-collect)
;;; init.el ends here