776 |
stat ((char *)XSTRING (found)->data, &s1); |
stat ((char *)XSTRING (found)->data, &s1); |
777 |
XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0; |
XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0; |
778 |
result = stat ((char *)XSTRING (found)->data, &s2); |
result = stat ((char *)XSTRING (found)->data, &s2); |
779 |
|
XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c'; |
780 |
|
|
781 |
if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime) |
if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime) |
782 |
{ |
{ |
783 |
/* Make the progress messages mention that source is newer. */ |
/* Make the progress messages mention that source is newer. */ |
784 |
newer = 1; |
newer = 1; |
785 |
|
|
786 |
/* If we won't print another message, mention this anyway. */ |
/* If we won't print another message, mention this anyway. */ |
787 |
if (! NILP (nomessage)) |
if (!NILP (nomessage)) |
788 |
message_with_string ("Source file `%s' newer than byte-compiled file", |
{ |
789 |
found, 1); |
Lisp_Object file; |
790 |
|
file = Fsubstring (found, make_number (0), make_number (-1)); |
791 |
|
message_with_string ("Source file `%s' newer than byte-compiled file", |
792 |
|
file, SMBP (file)); |
793 |
|
} |
794 |
} |
} |
|
XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c'; |
|
795 |
} |
} |
796 |
} |
} |
797 |
else |
else |