Change method of init-time message

Going off [1], I've just redefined the `display-startup-echo-area-message'
function to show the startup time, instead of adding a hook to Emacs's startup
and trying to figure out how to give my username to the original function.

[1]: https://depp.brause.cc/dotemacs/#org2cdacdd

2 files changed, 2 insertions, 8 deletions

@@ -129,7 +129,7 @@
 
 ;;; Message startup time for profiling
 
-(defun hook--message-startup-time ()
+(defun display-startup-echo-area-message ()
   "Show Emacs's startup time in the message buffer.  For profiling."
   (message "Emacs ready in %s with %d garbage collections."
            (format "%.2f seconds"
@@ -137,8 +137,6 @@
                                               before-init-time)))
            gcs-done))
 
-(add-hook 'emacs-startup-hook #'hook--message-startup-time)
-
 ;;; Install `no-littering', pointing both directories at `acdw/dir'.  This will
 ;;; take care of the packages I don't care about configuring.
 
@@ -368,11 +368,7 @@
                                     " Client")))
       tab-bar-show 1
       use-dialog-box nil
-      use-file-dialog nil
-      inhibit-startup-echo-area-message (pcase acdw/system
-                                          (:home "acdw")
-                                          (:work "aduckworth")
-                                          (:other (getenv "USER"))))
+      use-file-dialog nil)
 
 ;;;; Etc. bindings
 (global-set-key [remap just-one-space] #'cycle-spacing)