diff --git a/core/core.el b/core/core.el index eb7c8a684..bf7cfef1a 100644 --- a/core/core.el +++ b/core/core.el @@ -166,14 +166,16 @@ folder is the root of a project or not.") async-inject-variables)) ;; -;; We add this to `after-init-hook' to allow errors to stop this advice (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) "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 () - (message ":: Loaded in %s" (emacs-init-time))) + ;; Don't display anything + (advice-add 'display-startup-echo-area-message :override 'ignore) + (message ":: Loaded in %.3fs" + (float-time (time-subtract (current-time) emacs-start-time)))) (provide 'core) ;;; core.el ends here diff --git a/init.el b/init.el index 84462e097..f05087c67 100644 --- a/init.el +++ b/init.el @@ -40,6 +40,7 @@ ;; ;;; License: MIT +(defconst emacs-start-time (current-time)) (load (concat user-emacs-directory "bootstrap.el")) ;;