Speed up init
This commit is contained in:
parent
8e4d03f44d
commit
165f7622a6
|
@ -21,10 +21,24 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
;; Message when loading a library. This is the only place I'm going to use a
|
;; Message when loading a library.
|
||||||
;; `defadvice', and only because it's cleaner than defining a nonce function.
|
(define-advice load (:before (feature &rest _))
|
||||||
(defadvice load (before debug-log activate)
|
(message "Now loading: '%s'" feature))
|
||||||
(message "Now loading: '%s'" (ad-get-arg 0)))
|
|
||||||
|
;;; Speed up init
|
||||||
|
|
||||||
|
(setq gc-cons-threshold most-positive-fixnum)
|
||||||
|
|
||||||
|
(add-hook 'emacs-startup-hook
|
||||||
|
(defun emacs-startup@restore-values ()
|
||||||
|
"Restore values set during early-init for speed."
|
||||||
|
(setq gc-cons-threshold 134217728 ; 128mb
|
||||||
|
;; I don't do the common `file-name-handler-alist' thing here
|
||||||
|
;; because of a weirdness where my Emacs doesn't know how to
|
||||||
|
;; load bookmark.el.gz when initializing.
|
||||||
|
)))
|
||||||
|
|
||||||
|
;;; Set up extra load paths and functionality
|
||||||
|
|
||||||
(push (locate-user-emacs-file "lisp") load-path)
|
(push (locate-user-emacs-file "lisp") load-path)
|
||||||
(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
|
(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
|
||||||
|
@ -53,6 +67,7 @@ See `no-littering' for examples.")
|
||||||
(bottom . right)))
|
(bottom . right)))
|
||||||
|
|
||||||
;; Fonts
|
;; Fonts
|
||||||
|
|
||||||
(let ((font-name "Go Mono")
|
(let ((font-name "Go Mono")
|
||||||
(font-size 105)
|
(font-size 105)
|
||||||
(variable-font-name "Go")
|
(variable-font-name "Go")
|
||||||
|
|
Loading…
Reference in New Issue