summaryrefslogtreecommitdiff
path: root/src/lread.c
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-03-31 14:49:36 +0200
committerAndrea Corallo <akrl@sdf.org>2021-03-31 19:56:10 +0200
commit613caa9527ef56fb9b810d2b9478cbe9784baca0 (patch)
treef8728f743ec52298e8680355eb0f6a8f0bf46134 /src/lread.c
parent515378434a44b9979e8c8a6e04203695095bdc40 (diff)
downloademacs-613caa9527ef56fb9b810d2b9478cbe9784baca0.tar.gz
emacs-613caa9527ef56fb9b810d2b9478cbe9784baca0.tar.bz2
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.c6
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,
struct stat eln_st;
if (no_native
+ || load_no_native)
+ Fputhash (*filename, Qt, V_comp_no_native_file_h);
+ else
+ Fremhash (*filename, V_comp_no_native_file_h);
+
+ if (no_native
|| load_no_native
|| !suffix_p (*filename, ".elc"))
return;