amogus2/emacs-dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Restore `file-name-handler-alist' when processing command-line

Browse Source
This commit is contained in:
James Cherti
2025-02-02 21:17:15 -05:00
parent 273854e15e
commit 9ae4cb9f56
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
early-init.el
View File

@@ -102,6 +102,13 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(list (rassq 'jka-compr-handler old-value)))) (list (rassq 'jka-compr-handler old-value))))
;; Ensure the new value persists through any current let-binding. ;; Ensure the new value persists through any current let-binding.
(put 'file-name-handler-alist 'initial-value old-value) (put 'file-name-handler-alist 'initial-value old-value)
;; Emacs processes command-line files very early in startup. These files may
;; include special paths like TRAMP paths, so restore
;; `file-name-handler-alist' for this stage of initialization.
(define-advice command-line-1 (:around (fn args-left) respect-file-handlers)
(let ((file-name-handler-alist
(if args-left old-value file-name-handler-alist)))
(funcall fn args-left)))
;; Remember the old value to reset it as needed. ;; Remember the old value to reset it as needed.
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()