From: Lars Ingebrigtsen Date: Sat, 19 Jun 2021 13:58:09 +0000 (+0200) Subject: Use file-truename on files loaded with "emacs -l" X-Git-Tag: emacs-28.0.90~2080 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01bbe4c3058a52758763eea711aabfefae28b179;p=emacs.git Use file-truename on files loaded with "emacs -l" * lisp/startup.el (command-line-1): When loading a file, use the truename so that eval-after-load works more reliably (bug#49009). Change suggested by ctarbide@tuta.io. --- diff --git a/lisp/startup.el b/lisp/startup.el index ac319612e82..456c01efd13 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2500,7 +2500,7 @@ nil default-directory" name) (or argval (pop command-line-args-left)))) ;; Take file from default dir if it exists there; ;; otherwise let `load' search for it. - (file-ex (expand-file-name file))) + (file-ex (file-truename (expand-file-name file)))) (when (file-regular-p file-ex) (setq file file-ex)) (load file nil t))) @@ -2511,7 +2511,7 @@ nil default-directory" name) (let* ((file (command-line-normalize-file-name (or argval (pop command-line-args-left)))) ;; Take file from default dir. - (file-ex (expand-file-name file))) + (file-ex (file-truename (expand-file-name file)))) (load file-ex nil t t))) ((equal argi "-insert")