From c5ed3a72a8a70931ef9b0f9d69f73ff0fd40cadb Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 15 Apr 2020 22:55:30 +0100 Subject: [PATCH] * lisp/subr.el (eval-after-load): Make use of load-true-file-name bug#40638 --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index f7445d8c25e..c8eb12760c4 100644 --- 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"))) -- 2.39.5