From: Amin Bandali <bandali@gnu.org>
Date: Wed, 15 May 2019 00:35:06 +0000 (-0400)
Subject: emacs: fix nil file-name-handler-alist after reloading init
X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/9f7db1e88b102c1bfd696096fcc6452ffc124573?ds=inline

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).
---

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)