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:
parent
4bc9fe33af
commit
8ec8decd9f
1 changed files with 9 additions and 6 deletions
15
src/lread.c
15
src/lread.c
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue