# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 726684276 0
# Node ID 12c730b89ac8f661c4ca975017bcbc49797cb3b6
# Parent  7e85913523ef6c51583eb9ddf533657b2b2639a8
(Fload): If warn that .elc file is older,
inhibit the ordinary message that would follow.

diff -r 7e85913523ef -r 12c730b89ac8 src/lread.c
--- a/src/lread.c	Sat Jan 09 14:30:36 1993 +0000
+++ b/src/lread.c	Sun Jan 10 16:44:36 1993 +0000
@@ -302,6 +302,8 @@
   Lisp_Object temp;
   struct gcpro gcpro1;
   Lisp_Object found;
+  /* 1 means inhibit the message at the beginning.  */
+  int nomessage1 = 0;
 
   CHECK_STRING (str, 0);
   str = Fsubstitute_in_file_name (str);
@@ -334,8 +336,13 @@
       XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
       result = stat (XSTRING (found)->data, &s2);
       if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
-	message ("Source file `%s' newer than byte-compiled file",
-		 XSTRING (found)->data);
+	{
+	  message ("Source file `%s' newer than byte-compiled file",
+		   XSTRING (found)->data);
+	  /* Don't immediately overwrite this message.  */
+	  if (!noninteractive)
+	    nomessage1 = 1;
+	}
       XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
     }
 
@@ -346,7 +353,7 @@
       error ("Failure to create stdio stream for %s", XSTRING (str)->data);
     }
 
-  if (NILP (nomessage))
+  if (NILP (nomessage) && !nomessage1)
     message ("Loading %s...", XSTRING (str)->data);
 
   GCPRO1 (str);