mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
string it is given like a C string.
This commit is contained in:
Gerd Moellmann 2002-03-11 18:42:35 +00:00
parent b3f1e48a47
commit 714d8c393b
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
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

13
src/lread.c
View File

@ -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