procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lread.c (Fload): Use SDATA, SSET.

Browse source
This commit is contained in:
Ken Raeburn 2002-07-16 15:49:38 +00:00
parent bba772ab93
commit a1c89c0a12
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/lread.c
View file

@ -778,7 +778,7 @@ Return t if file exists. */)
Vloads_in_progress = Fcons (found, Vloads_in_progress);
}
if (!bcmp (&(SREF (found, SBYTES (found) - 4)),
if (!bcmp (SDATA (found) + SBYTES (found) - 4,
".elc", 4))
/* Load .elc files directly, but not when they are
remote and have no handler! */
@ -807,9 +807,9 @@ Return t if file exists. */)
fmode = "rb";
#endif /* DOS_NT */
stat ((char *)SDATA (efound), &s1);
SREF (efound, SBYTES (efound) - 1) = 0;
SSET (efound, SBYTES (efound) - 1, 0);
result = stat ((char *)SDATA (efound), &s2);
SREF (efound, SBYTES (efound) - 1) = 'c';
SSET (efound, SBYTES (efound) - 1, 'c');
UNGCPRO;
if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)