Add optimization for file-name-handler-alist and file-name-handler-alist

early-init.el

@@ -34,6 +34,9 @@
 (defvar minimal-emacs-gc-cons-threshold (* 16 1024 1024)
   "The value of `gc-cons-threshold' after Emacs startup.")
 
+(defvar minimal-emacs-native-comp-reserved-cpus 2
+  "Number of CPUs to reserve and not use for `native-compile'.")
+
 ;;; Misc
 
 (set-language-environment "UTF-8")
@@ -52,6 +55,9 @@
 
 ;;; Performance
 
+;; Prefer loading newer compiled files
+(setq load-prefer-newer t)
+
 ;; Increase how much is read from processes in a single chunk (default is 4kb).
 (setq read-process-output-max (* 128 1024))  ; 128kb
 
@@ -64,9 +70,6 @@
 (setq-default cursor-in-non-selected-windows nil)
 (setq highlight-nonselected-windows nil)
 
-;; Prefer loading newer compiled files
-(setq load-prefer-newer t)
-
 ;; Disable warnings from the legacy advice API. They aren't useful.
 (setq ad-redefinition-action 'accept)
 
@@ -74,7 +77,63 @@
 (setq warning-suppress-types '((defvaralias) (lexical-binding)))
 
 (unless (daemonp)
+  (let ((old-value (default-toplevel-value 'file-name-handler-alist)))
+    (set-default-toplevel-value
+     'file-name-handler-alist
+     ;; Determine the state of bundled libraries using calc-loaddefs.el.
+     ;; If compressed, retain the gzip handler in `file-name-handler-alist`.
+     ;; If compiled or neither, omit the gzip handler during startup for
+     ;; improved startup and package load time.
+     (if (eval-when-compile
+           (locate-file-internal "calc-loaddefs.el" load-path))
+         nil
+       (list (rassq 'jka-compr-handler old-value))))
+    ;; Ensure the new value persists through any current let-binding.
+    (set-default-toplevel-value 'file-name-handler-alist
+                                file-name-handler-alist)
+    ;; Remember the old value to reset it as needed. (put
+    ;; 'file-name-handler-alist 'initial-value old-value) Restore
+    ;; `file-name-handler-alist' later for handling encrypted or compressed
+    ;; files.
+    (add-hook 'emacs-startup-hook
+              (lambda ()
+                (set-default-toplevel-value
+                 'file-name-handler-alist
+                 ;; Merge instead of overwrite to preserve any changes made
+                 ;; since startup.
+                 (delete-dups (append file-name-handler-alist old-value))))
+              101))
+
   (unless noninteractive
+    (progn
+      (defun minimal-emacs--reset-inhibited-vars-h ()
+        (setq-default inhibit-redisplay nil
+                      ;; Inhibiting `message' only prevents redraws and
+                      inhibit-message nil)
+        (redraw-frame))
+
+      (defvar minimal-emacs--default-mode-line-format mode-line-format
+        "Default value of `mode-line-format'.")
+      (setq-default mode-line-format nil)
+
+      (defun my--startup-load-user-init-file (fn &rest args)
+        "Around advice for startup--load-user-init-file to reset mode-line-format."
+        (let (init)
+          (unwind-protect
+              (progn
+                (apply fn args)  ; Start up as normal
+                (setq init t))
+            (unless init
+              ;; If we don't undo inhibit-{message, redisplay} and there's an
+              ;; error, we'll see nothing but a blank Emacs frame.
+              (minimal-emacs--reset-inhibited-vars-h))
+            (unless (default-toplevel-value 'mode-line-format)
+              (setq-default mode-line-format
+                            minimal-emacs--default-mode-line-format)))))
+
+      (advice-add 'startup--load-user-init-file :around
+                  #'my--startup-load-user-init-file))
+
     ;; Without this, Emacs will try to resize itself to a specific column size
     (setq frame-inhibit-implied-resize t)
 
@@ -109,10 +168,7 @@
     (setq initial-major-mode 'fundamental-mode
           initial-scratch-message nil)))
 
-;; Native comp
+;;; Native comp
-(defvar minimal-emacs-native-comp-reserved-cpus 2
-  "Number of CPUs to reserve and not use for `native-compile'.")
-
 (defun minimal-emacs-calculate-native-comp-async-jobs ()
   "Set `native-comp-async-jobs-number' based on the available CPUs."
   ;; The `num-processors' function is only available in Emacs >= 28.1
@@ -139,18 +195,16 @@
 (setq byte-compile-warnings minimal-emacs-debug)
 (setq byte-compile-verbose minimal-emacs-debug)
 
-;;; Simple UI
+;;; Disable unneeded UI elements
 
 ;; Disable startup screens and messages
 (setq inhibit-splash-screen t)
 
-;;; Disable unneeded UI elements
+;; I intentionally avoid calling `menu-bar-mode', `tool-bar-mode', and
-
+;; `scroll-bar-mode' because manipulating frame parameters can trigger or queue
-;; HACK: I intentionally avoid calling `menu-bar-mode', `tool-bar-mode', and
+;; a superfluous and potentially expensive frame redraw at startup, depending
-;;   `scroll-bar-mode' because their manipulation of frame parameters can
+;; on the window system. The variables must also be set to `nil' so users don't
-;;   trigger/queue a superfluous (and expensive, depending on the window system)
+;; have to call the functions twice to re-enable them.
-;;   frame redraw at startup. The variables must be set to `nil' as well so
-;;   users don't have to call the functions twice to re-enable them.
 (push '(menu-bar-lines . 0)   default-frame-alist)
 (push '(tool-bar-lines . 0)   default-frame-alist)
 (push '(vertical-scroll-bars) default-frame-alist)
@@ -159,6 +213,14 @@
       tool-bar-mode nil
       scroll-bar-mode nil)
 
+(when (bound-and-true-p tooltip-mode)
+  (tooltip-mode -1))
+
+;; Disable GUIs because theyr are inconsistent across systems, desktop
+;; environments, and themes, and they don't match the look of Emacs.
+(setq use-file-dialog nil)
+(setq use-dialog-box nil)
+
 ;; (unless (memq window-system '(mac ns))
 ;;   (menu-bar-mode -1))
 ;; (when (fboundp 'tool-bar-mode)

init.el

@@ -14,7 +14,7 @@
 
 ;;; Code:
 
-;;; Load user-pre-init.el
+;;; Load user-pre-init.el and init packages
 (minimal-emacs-load-user-init "pre-init.el")
 
 (use-package auto-compile
@@ -30,6 +30,18 @@
   :hook
   (emacs-startup . gcmh-mode))
 
+;;; Performance
+
+;; Don't ping things that look like domain names.
+(setq ffap-machine-p-known 'reject)
+
+;; By default, Emacs "updates" its ui more often than it needs to
+(setq idle-update-delay 1.0)
+
+;; Font compacting can be very resource-intensive, especially when rendering
+;; icon fonts on Windows. This will increase memory usage.
+(setq inhibit-compacting-font-caches t)
+
 ;;; Uniquify - Unique buffer name
 (progn
   (setq uniquify-buffer-name-style 'reverse)
@@ -133,30 +145,9 @@
 (setq visible-bell nil)
 (setq ring-bell-function #'ignore)
 
-;;; Minimal UI
-
-;; Disable GUIs because theyr are inconsistent across systems, desktop
-;; environments, and themes, and they don't match the look of Emacs.
-(setq use-file-dialog nil)
-(setq use-dialog-box nil)
-(when (bound-and-true-p tooltip-mode)
-  (tooltip-mode -1))
-
-;;; Performance
-
-;; Don't ping things that look like domain names.
-(setq ffap-machine-p-known 'reject)
-
-;; By default, Emacs "updates" its ui more often than it needs to
-(setq idle-update-delay 1.0)
-
-;; Font compacting can be very resource-intensive, especially when rendering
-;; icon fonts on Windows. This will increase memory usage.
-(setq inhibit-compacting-font-caches t)
-
-(provide 'init)
-
 ;;; Load user-pre-init.el
 (minimal-emacs-load-user-init "post-init.el")
 
+(provide 'init)
+
 ;;; init.el ends here