* 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.

diff --git a/src/lread.c b/src/lread.c
index c5bec0633df706b4f899b93869de6a88386bdaac..521da4e1d813862286e12898c4ad0a9458edef8c 100644 (file)
--- 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");