10sr 3 роки тому
джерело
коміт
ff73eb487a
Підписано: 10sr Ідентифікатор GPG ключа: 7BEC428194130EB2
1 змінених файлів з 20 додано та 4 видалено
  1. +20
    -4
      emacs.el

+ 20
- 4
emacs.el Переглянути файл

@@ -11,6 +11,18 @@

(setq debug-on-error t)

(when (getenv "_EMACS_EL_PROFILE")
(eval-and-compile
(require 'profiler))
(profiler-start 'cpu))

;; https://emacs-jp.github.io/tips/startup-optimization
;; Temporarily change values to speed up initialization
(defconst my-orig-file-name-handler-alist file-name-handler-alist)
(setq file-name-handler-alist nil)
(defconst my-orig-gc-cons-threshold gc-cons-threshold)
(setq gc-cons-threshold most-positive-fixnum)

;; make directories
(unless (file-directory-p (expand-file-name user-emacs-directory))
(make-directory (expand-file-name user-emacs-directory)))
@@ -25,8 +37,6 @@


;; (profiler-start 'cpu)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Some macros for internals

@@ -3068,12 +3078,18 @@ Any output will be written to current buffer."
(mmv-draw-mark))


;; https://emacs-jp.github.io/tips/startup-optimization
;; Restore to original value
(setq gc-cons-threshold my-orig-gc-cons-threshold)
(setq file-name-handler-alist my-orig-file-name-handler-alist)

(when (getenv "_EMACS_EL_PROFILE")
(profiler-report)
(profiler-stop))

;; Local Variables:
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
;; flycheck-checker: emacs-lisp
;; End:

;; (profiler-report)

;;; emancs.el ends here

Завантаження…
Відмінити
Зберегти