[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp c5ed3a7: * lisp/subr.el (eval-after-load): Make use
From: |
Andrea Corallo |
Subject: |
feature/native-comp c5ed3a7: * lisp/subr.el (eval-after-load): Make use of load-true-file-name bug#40638 |
Date: |
Wed, 15 Apr 2020 18:07:02 -0400 (EDT) |
branch: feature/native-comp
commit c5ed3a72a8a70931ef9b0f9d69f73ff0fd40cadb
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* 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 f7445d8..c8eb127 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")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp c5ed3a7: * lisp/subr.el (eval-after-load): Make use of load-true-file-name bug#40638,
Andrea Corallo <=