Avoid native compiler setting user-init-file to warnings.el (bug#59358)

* src/lread.c (maybe_swap_for_eln): Use a delayed warning
instead of `display-warning' to avoid a recursive call to
Fload while loading the init file that sets `user-init-file'
to a bogus value.
This commit is contained in:
Juanma Barranquero 2022-11-20 21:40:08 +01:00
parent 4bc9fe33af
commit 8ec8decd9f

View file

@ -1741,12 +1741,15 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd,
Vload_path,
Qnil, Qnil)))
return;
call2 (intern_c_string ("display-warning"),
Qcomp,
CALLN (Fformat,
build_string ("Cannot look up eln file as "
"no source file was found for %s"),
*filename));
Vdelayed_warnings_list
= Fcons (list2
(Qcomp,
CALLN (Fformat,
build_string ("Cannot look up eln "
"file as no source file "
"was found for %s"),
*filename)),
Vdelayed_warnings_list);
return;
}
}