minor speed improvements
This commit is contained in:
parent
8c1171b018
commit
160da56845
7
init.el
7
init.el
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user