projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XEmacs 21.4.11 "Native Windows TTY Support".
[chise/xemacs-chise.git.1]
/
src
/
lread.c
diff --git
a/src/lread.c
b/src/lread.c
index
4a995ba
..
807c07b
100644
(file)
--- a/
src/lread.c
+++ b/
src/lread.c
@@
-984,7
+984,7
@@
locate_file_map_suffixes (Lisp_Object filename, Lisp_Object suffixes,
while (1)
{
char *esuffix = (char *) strchr (nsuffix, ':');
while (1)
{
char *esuffix = (char *) strchr (nsuffix, ':');
- int lsuffix = esuffix ? esuffix - nsuffix : strlen (nsuffix);
+ int lsuffix = esuffix ? esuffix - nsuffix : (int) strlen (nsuffix);
/* Concatenate path element/specified name with the suffix. */
strncpy (fn + fn_len, nsuffix, lsuffix);
/* Concatenate path element/specified name with the suffix. */
strncpy (fn + fn_len, nsuffix, lsuffix);
@@
-1186,7
+1186,7
@@
can be used if the internal tables grow too large, or when dumping.
MODE nonnegative means don't open the files,
just look for one for which access(file,MODE) succeeds. In this case,
MODE nonnegative means don't open the files,
just look for one for which access(file,MODE) succeeds. In this case,
- returns 1 on success.
+ returns a nonnegative value on success. On failure, returns -1.
If STOREPTR is nonzero, it points to a slot where the name of
the file actually found should be stored as a Lisp string.
If STOREPTR is nonzero, it points to a slot where the name of
the file actually found should be stored as a Lisp string.
@@
-2501,15
+2501,15
@@
retry:
case '+':
case '-':
{
case '+':
case '-':
{
- Lisp_Object fexp, obj, tem;
+ Lisp_Object feature_exp, obj, tem;
struct gcpro gcpro1, gcpro2;
struct gcpro gcpro1, gcpro2;
- fexp = read0(readcharfun);
+ feature_exp = read0(readcharfun);
obj = read0(readcharfun);
/* the call to `featurep' may GC. */
obj = read0(readcharfun);
/* the call to `featurep' may GC. */
- GCPRO2 (fexp, obj);
- tem = call1 (Qfeaturep, fexp);
+ GCPRO2 (feature_exp, obj);
+ tem = call1 (Qfeaturep, feature_exp);
UNGCPRO;
if (c == '+' && NILP(tem)) goto retry;
UNGCPRO;
if (c == '+' && NILP(tem)) goto retry;