From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 20 Nov 2022 20:40:08 +0000 (+0100)
Subject: Avoid native compiler setting user-init-file to warnings.el (bug#59358)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2055^2~9
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8ec8decd9f1ab642c7f1406b37a89773345b5aba;p=emacs.git

Avoid native compiler setting user-init-file to warnings.el (bug#59358)

* src/lread.c (maybe_swap_for_eln): Use a delayed warning
instead of `display-warning' to avoid a recursive call to
Fload while loading the init file that sets `user-init-file'
to a bogus value.
---

diff --git a/src/lread.c b/src/lread.c
index c28324dc35b..2a57f721943 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1741,12 +1741,15 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd,
 					       Vload_path,
 					       Qnil, Qnil)))
 		return;
-	      call2 (intern_c_string ("display-warning"),
-		     Qcomp,
-		     CALLN (Fformat,
-			    build_string ("Cannot look up eln file as "
-					  "no source file was found for %s"),
-			    *filename));
+	      Vdelayed_warnings_list
+		= Fcons (list2
+			 (Qcomp,
+			  CALLN (Fformat,
+				 build_string ("Cannot look up eln "
+					       "file as no source file "
+					       "was found for %s"),
+				 *filename)),
+			 Vdelayed_warnings_list);
 	      return;
 	    }
 	}