[Emacs-diffs] Changes to emacs/src/lread.c

[Gerd Moellmann]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.280 emacs/src/lread.c:1.281
*** emacs/src/lread.c:1.280     Mon Mar  4 18:40:59 2002
--- emacs/src/lread.c   Mon Mar 11 13:41:10 2002
***************
*** 776,792 ****
          stat ((char *)XSTRING (found)->data, &s1);
          XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0;
          result = stat ((char *)XSTRING (found)->data, &s2);
          if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
            {
              /* Make the progress messages mention that source is newer.  */
              newer = 1;
  
              /* If we won't print another message, mention this anyway.  */
!             if (! NILP (nomessage))
!               message_with_string ("Source file `%s' newer than byte-compiled 
file",
!                                    found, 1);
            }
-         XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';
        }
      }
    else
--- 776,797 ----
          stat ((char *)XSTRING (found)->data, &s1);
          XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0;
          result = stat ((char *)XSTRING (found)->data, &s2);
+         XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';
+         
          if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
            {
              /* Make the progress messages mention that source is newer.  */
              newer = 1;
  
              /* If we won't print another message, mention this anyway.  */
!             if (!NILP (nomessage))
!               {
!                 Lisp_Object file;
!                 file = Fsubstring (found, make_number (0), make_number (-1));
!                 message_with_string ("Source file `%s' newer than 
byte-compiled file",
!                                      file, SMBP (file));
!               }
            }
        }
      }
    else