awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor 'loaded in Xs' message on boot up

Browse Source
This commit is contained in:
Henrik Lissner
2016-05-18 16:59:42 -04:00
parent 11f751d2fb
commit 61a14fce1f
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/core.el
View File

@ -166,14 +166,16 @@ folder is the root of a project or not.")
async-inject-variables)) async-inject-variables))
;; ;;
;; We add this to `after-init-hook' to allow errors to stop this advice
(add-hook! after-init (add-hook! after-init
;; We add this to `after-init-hook' to allow errors to stop this advice
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate) (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
"Prevent annoying \"Active processes exist\" query when you quit Emacs." "Prevent annoying \"Active processes exist\" query when you quit Emacs."
(cl-flet ((process-list ())) ad-do-it))) (cl-flet ((process-list ())) ad-do-it))
(defun display-startup-echo-area-message () ;; Don't display anything
(message ":: Loaded in %s" (emacs-init-time))) (advice-add 'display-startup-echo-area-message :override 'ignore)
(message ":: Loaded in %.3fs"
(float-time (time-subtract (current-time) emacs-start-time))))
(provide 'core) (provide 'core)
;;; core.el ends here ;;; core.el ends here

1
init.el
View File

@ -40,6 +40,7 @@
;; ;;
;;; License: MIT ;;; License: MIT
(defconst emacs-start-time (current-time))
(load (concat user-emacs-directory "bootstrap.el")) (load (concat user-emacs-directory "bootstrap.el"))
;; ;;