From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 16 Aug 2020 18:40:44 +0000 (+0200)
Subject: * Introduce `load-no-native'
X-Git-Tag: emacs-28.0.90~2727^2~487
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=142cfe942f9263efd6adab5f51f2feab4740735f;p=emacs.git

* 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 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");