From db5cae4b2d64e5ee3499a4d430816df3d0f0e2a2 Mon Sep 17 00:00:00 2001
From: Simon Marshall
Date: Thu, 23 Oct 1997 14:58:25 +0000
Subject: Indicate in messages if source code is being loaded.

---
 src/lread.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/lread.c b/src/lread.c
index 62886190fb2..725ebef4a0b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -534,12 +534,12 @@ Return t if file exists.")
 
   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 @@ Return t if file exists.")
 
   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;
-- 
cgit v1.2.1