23 lines
882 B
EmacsLisp
23 lines
882 B
EmacsLisp
;;; core-performance.el -*-
|
|
|
|
;; --- Startup speed tweaks ----------------------------------------------------
|
|
;; Temporarily increase GC threshold during init
|
|
(defvar fscotto/gc-cons-threshold-orig gc-cons-threshold)
|
|
(setq gc-cons-threshold (* 50 1000 1000)) ;; 50MB for init
|
|
|
|
;; Speedup file-name-handler during init
|
|
(defvar fscotto/file-name-handler-alist-orig file-name-handler-alist)
|
|
(setq file-name-handler-alist nil)
|
|
|
|
;; Restore after init
|
|
(add-hook 'emacs-startup-hook
|
|
(lambda ()
|
|
(setq gc-cons-threshold fscotto/gc-cons-threshold-orig)
|
|
(setq file-name-handler-alist fscotto/file-name-handler-alist-orig)
|
|
(garbage-collect)))
|
|
|
|
;; LSP responsiveness
|
|
(setq read-process-output-max (* 1024 1024)) ;; 1MB, utile per lsp-mode
|
|
(setq lsp-idle-delay 0.5) ;; meno ritardo prima che LSP aggiorni info
|
|
(setq inhibit-compacting-font-caches t)
|