emacs: fix nil file-name-handler-alist after reloading init

This problem would cause emacs to not treat files like *.gpg
or *.el.gz especially before displaying them, as it normally does.

So now, I update a/file-name-handler-alist with the latest contents of
file-name-handler-alist before loading the init file, and afterwards I
restore things back to normal (done in a/post-init).

1 files changed, 8 insertions, 7 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index b7a433d..b09f080 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -56,12 +56,11 @@
       esup-child-profile-require-level 0)
 
 ;; set them back to their defaults once we're done initializing
-(add-hook
- 'after-init-hook
- (lambda ()
-   (setq gc-cons-threshold a/gc-cons-threshold
-         gc-cons-percentage a/gc-cons-percentage
-         file-name-handler-alist a/file-name-handler-alist)))
+(defun a/post-init ()
+  (setq gc-cons-threshold a/gc-cons-threshold
+        gc-cons-percentage a/gc-cons-percentage
+        file-name-handler-alist a/file-name-handler-alist))
+(add-hook 'after-init-hook #'a/post-init)
 
 ;; increase number of lines kept in *Messages* log
 (setq message-log-max 20000)
@@ -148,7 +147,9 @@
   (interactive)
   (straight-transaction
     (straight-mark-transaction-as-init)
-    (load user-init-file)))
+    (setq a/file-name-handler-alist file-name-handler-alist)
+    (load user-init-file)
+    (a/post-init)))
 
 ;; use-package
 (straight-use-package 'use-package)