* src/lread.c (warn_missing_cookie): Exempt the user init file.

(cherry picked from commit a5acc89712151645525bd2c0e2c90bf46a8e61ec)

diff --git a/src/lread.c b/src/lread.c
index f9a1a8562cb8a7f344a2f1df157d82561e0a945a..2c856f5d42e13f5b7e2264297fda6c086705d7e8 100644 (file)
--- 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);
 }