* lisp/subr.el (eval-after-load): Make use of load-true-file-name bug#40638

diff --git a/lisp/subr.el b/lisp/subr.el
index f7445d8c25e646343392741258ed92ebbb29e9b4..c8eb12760c401c29a14cf326d4ef5c5afce45332 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4600,10 +4600,10 @@ This function makes or adds to an entry on `after-load-alist'."
                ;; So add an indirection to make sure that `func' is really run
                ;; "after-load" in case the provide call happens early.
                (lambda ()
-                 (if (not load-file-name)
+                 (if (not load-true-file-name)
                      ;; Not being provided from a file, run func right now.
                      (funcall func)
-                   (let ((lfn load-file-name)
+                   (let ((lfn load-true-file-name)
                          ;; Don't use letrec, because equal (in
                          ;; add/remove-hook) would get trapped in a cycle.
                          (fun (make-symbol "eval-after-load-helper")))