Indicate in messages if source code is being loaded.

1 files changed, 8 insertions, 8 deletions

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;