Remove duplicated code for startup optimization.
This commit is contained in:
25
init.el
25
init.el
@ -9,31 +9,6 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Mejorar el tiempo de carga
|
||||
(setq auto-mode-case-fold nil)
|
||||
|
||||
(unless (or (daemonp) noninteractive)
|
||||
(let ((old-file-name-handler-alist file-name-handler-alist))
|
||||
;; If `file-name-handler-alist' is nil, no 256 colors in TUI
|
||||
;; @see https://emacs-china.org/t/spacemacs-centaur-emacs/3802/839
|
||||
(setq file-name-handler-alist
|
||||
(unless (display-graphic-p)
|
||||
'(("\\(?:\\.tzst\\|\\.zst\\|\\.dz\\|\\.txz\\|\\.xz\\|\\.lzma\\|\\.lz\\|\\.g?z\\|\\.\\(?:tgz\\|svgz\\|sifz\\)\\|\\.tbz2?\\|\\.bz2\\|\\.Z\\)\\(?:~\\|\\.~[-[:alnum:]:#@^._]+\\(?:~[[:digit:]]+\\)?~\\)?\\'" . jka-compr-handler))))
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda ()
|
||||
"Recover file name handlers."
|
||||
(setq file-name-handler-alist
|
||||
(delete-dups (append file-name-handler-alist
|
||||
old-file-name-handler-alist)))))))
|
||||
|
||||
(setq gc-cons-threshold most-positive-fixnum
|
||||
gc-cons-percentage 0.5)
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda ()
|
||||
"Recover GC values after startup."
|
||||
(setq gc-cons-threshold 800000
|
||||
gc-cons-percentage 0.1)))
|
||||
|
||||
;; Cargar configuraciones
|
||||
|
||||
(add-to-list 'load-path (concat user-emacs-directory "configs"))
|
||||
|
Reference in New Issue
Block a user