Commit 714d8c39 authored by Gerd Moellmann's avatar Gerd Moellmann

(Fload): Don't assume that message_with_ntring uses the

string it is given like a C string.
parent b3f1e48a
2002-03-11 Gerd Moellmann <gerd@gnu.org>
* lread.c (Fload): Don't assume that message_with_ntring uses the
string it is given like a C string.
2002-03-10 Jan D. <Jan.Djarv@mbox200.swipnet.se>
* xterm.h: Extern declare x_session_check_input () and
......
......@@ -776,17 +776,22 @@ Return t if file exists. */)
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))
message_with_string ("Source file `%s' newer than byte-compiled file",
found, 1);
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));
}
}
XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';
}
}
else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment