Message about startup time

config.org

@@ -1185,6 +1185,26 @@ I'm going to try it for now.
                 #'hook--gc-when-unfocused)
 #+end_src
 
+** Startup time
+
+Just for me to know, and in case I ever want to make it snappier.  This function
+is from [[https://blog.d46.us/advanced-emacs-startup/][Joe Schafer]].
+
+As a benchmark, on Windows, =emacs -Q= starts up in *0.188585* seconds, and 
+=emacs -q= starts in *0.373297*.
+
+#+begin_src emacs-lisp :noweb-ref hooks
+  (defun hook--message-startup-time ()
+    "Message Emacs' startup time."
+    (message "Emacs ready in %s with %d garbage collections."
+             (format "%.2f seconds"
+                     (float-time (time-subtract after-init-time
+                                                before-init-time)))
+             gcs-done))
+
+  (add-hook 'emacs-startup-hook #'hook--message-startup-time)
+#+end_src
+
 * Files
 
 ** Encoding