From 142cfe942f9263efd6adab5f51f2feab4740735f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 16 Aug 2020 20:40:44 +0200 Subject: [PATCH] * Introduce `load-no-native' Given load loads automatically a .eln in place of a .elc we need a way to force the .elc load in the case we really want it. * src/lread.c (syms_of_lread): Define `load-no-native'. (maybe_swap_for_eln): Make use of. --- src/lread.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/lread.c b/src/lread.c index c5bec0633df..521da4e1d81 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1615,7 +1615,8 @@ maybe_swap_for_eln (Lisp_Object *filename, int *fd, struct timespec mtime) #ifdef HAVE_NATIVE_COMP struct stat eln_st; - if (!suffix_p (*filename, ".elc")) + if (load_no_native + || !suffix_p (*filename, ".elc")) return; /* Search eln in the eln-cache directories. */ @@ -5156,6 +5157,11 @@ Note that if you customize this, obviously it will not affect files that are loaded before your customizations are read! */); load_prefer_newer = 0; + DEFVAR_BOOL ("load-no-native", load_no_native, + doc: /* Do not try to load the a .eln file in place of + a .elc one. */); + load_no_native = false; + /* Vsource_directory was initialized in init_lread. */ DEFSYM (Qcurrent_load_list, "current-load-list"); -- 2.39.5