; * src/lread.c (warn_missing_cookie): Fix typo.

diff --git a/src/lread.c b/src/lread.c
index 2c856f5d42e13f5b7e2264297fda6c086705d7e8..a8ea52a888dd0117fc43b98a848f5f6e2a7ded25 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1352,10 +1352,10 @@ warn_missing_cookie (Lisp_Object file)
   if (!NILP (Fequal (file, Vuser_init_file)))
     return;
 
-  file = CALLN (Fformat,
-               build_string ("File %s lacks `lexical-binding'"
-                             " directive on its first line"),
-               file);
+  msg = 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);
 }