diff options
| author | Andrea Corallo | 2021-03-31 14:49:36 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2021-03-31 19:56:10 +0200 |
| commit | 613caa9527ef56fb9b810d2b9478cbe9784baca0 (patch) | |
| tree | f8728f743ec52298e8680355eb0f6a8f0bf46134 /src/lread.c | |
| parent | 515378434a44b9979e8c8a6e04203695095bdc40 (diff) | |
| download | emacs-613caa9527ef56fb9b810d2b9478cbe9784baca0.tar.gz emacs-613caa9527ef56fb9b810d2b9478cbe9784baca0.zip | |
Do not defer compilation when bytecode is explicitly requested (bug#46617)
* src/comp.c (maybe_defer_native_compilation): Check if the file
is registered in 'V_comp_no_native_file_h'.
(syms_of_comp): 'V_comp_no_native_file_h' new global.
* src/lread.c (maybe_swap_for_eln): Register files in
'V_comp_no_native_file_h'.
* lisp/faces.el (tty-run-terminal-initialization): Do not
explicitly load .elc file to not exclude .eln being loaded in
place.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index e8c257a13cc..ec6f09238ba 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1656,6 +1656,12 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd, | |||
| 1656 | struct stat eln_st; | 1656 | struct stat eln_st; |
| 1657 | 1657 | ||
| 1658 | if (no_native | 1658 | if (no_native |
| 1659 | || load_no_native) | ||
| 1660 | Fputhash (*filename, Qt, V_comp_no_native_file_h); | ||
| 1661 | else | ||
| 1662 | Fremhash (*filename, V_comp_no_native_file_h); | ||
| 1663 | |||
| 1664 | if (no_native | ||
| 1659 | || load_no_native | 1665 | || load_no_native |
| 1660 | || !suffix_p (*filename, ".elc")) | 1666 | || !suffix_p (*filename, ".elc")) |
| 1661 | return; | 1667 | return; |