diff src/lread.c @ 20168:13074c25ab06

Indicate in messages if source code is being loaded.
author Simon Marshall <simon@gnu.org>
date Thu, 23 Oct 1997 14:58:25 +0000
parents 5324d8b2322b
children b7d23d2eded1
line wrap: on
line diff
--- a/src/lread.c	Thu Oct 23 13:43:14 1997 +0000
+++ b/src/lread.c	Thu Oct 23 14:58:25 1997 +0000
@@ -534,12 +534,12 @@
 
   if (NILP (nomessage))
     {
-      if (newer)
+      if (!compiled)
+	message ("Loading %s (source)...", XSTRING (file)->data);
+      else if (newer)
 	message ("Loading %s (compiled; note, source file is newer)...",
 		 XSTRING (file)->data);
-      else if (compiled)
-	message ("Loading %s (compiled)...", XSTRING (file)->data);
-      else
+      else /* The typical case; compiled file newer than source file.  */
 	message ("Loading %s...", XSTRING (file)->data);
     }
 
@@ -570,12 +570,12 @@
 
   if (!noninteractive && NILP (nomessage))
     {
-      if (newer)
+      if (!compiled)
+	message ("Loading %s (source)...done", XSTRING (file)->data);
+      else if (newer)
 	message ("Loading %s (compiled; note, source file is newer)...done",
 		 XSTRING (file)->data);
-      else if (compiled)
-	message ("Loading %s (compiled)...done", XSTRING (file)->data);
-      else
+      else /* The typical case; compiled file newer than source file.  */
 	message ("Loading %s...done", XSTRING (file)->data);
     }
   return Qt;