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