From 1f5c5a3b70178fc1f2b30c5f88acba5fed03600b Mon Sep 17 00:00:00 2001
From: Po Lu <luangruo@yahoo.com>
Date: Sat, 4 May 2024 11:11:36 +0800
Subject: [PATCH] * src/lread.c (warn_missing_cookie): Exempt the user init
 file.

(cherry picked from commit a5acc89712151645525bd2c0e2c90bf46a8e61ec)
---
 src/lread.c | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/lread.c b/src/lread.c
index f9a1a8562cb..2c856f5d42e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1345,10 +1345,17 @@ close_file_unwind_android_fd (void *ptr)
 static void
 warn_missing_cookie (Lisp_Object file)
 {
-  Lisp_Object msg = CALLN (Fformat,
-			   build_string ("File %s lacks `lexical-binding'"
-					 " directive on its first line"),
-			   file);
+  Lisp_Object msg;
+
+  /* The user init file should not be subject to these warnings, as
+     Emacs doesn't insert cookies into generated init files.  */
+  if (!NILP (Fequal (file, Vuser_init_file)))
+    return;
+
+  file = CALLN (Fformat,
+		build_string ("File %s lacks `lexical-binding'"
+			      " directive on its first line"),
+		file);
   Vdelayed_warnings_list = Fcons (list2 (Qlexical_binding, msg),
 				  Vdelayed_warnings_list);
 }
-- 
2.39.5