Emacs: Add init benchmarking

1 files changed, 9 insertions, 6 deletions

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 8e8db1c6..62c43fc3 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -44,7 +44,9 @@ the buffer to be empty.
       (package-install 'use-package))
     (require 'use-package))
   (setq use-package-verbose t
-        use-package-ensure-always-ensure t)
+        use-package-always-ensure t)
+  (use-package benchmark-init
+    :config (benchmark-init/activate))
 #+END_SRC
 
 * Customize
@@ -2391,9 +2393,10 @@ the =org=-document after changes.
 
 Start a server if possible.  A daemon is already a server.
 #+BEGIN_SRC emacs-lisp
-(unless (daemonp)
-  (require 'server)
-  (if (server-running-p server-name)
-      (message "Server already appears to be running")
-    (server-start)))
+  (unless (daemonp)
+    (require 'server)
+    (if (server-running-p server-name)
+        (message "Server already appears to be running")
+      (server-start)))
+  (benchmark-init/deactivate)
 #+END_SRC