From 1c5548f1c51b44b78d05deb11a31b8678df7b4e7 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 13 Apr 2020 11:07:11 +0100 Subject: * src/lread.c (Fload): Add comment. --- src/lread.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/lread.c') diff --git a/src/lread.c b/src/lread.c index 937b4566851..18a56d0969c 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1469,6 +1469,11 @@ Return t if the file exists and loads successfully. */) if (is_native_elisp) { + /* Many packages use `load-file-name' as a way to obtain the + package location (see bug#40099). .eln files are not in the + same folder of their respective sources therfore not to break + packages we fake `load-file-name' here. The non faked + version of it is `load-true-file-name'. */ Lisp_Object dir = Ffile_name_directory (found); Lisp_Object parent_dir = Ffile_name_directory (Fsubstring (dir, -- cgit v1.2.3