644 |
fmode = "rt"; |
fmode = "rt"; |
645 |
#endif /* DOS_NT */ |
#endif /* DOS_NT */ |
646 |
|
|
647 |
CHECK_STRING (file, 0); |
CHECK_STRING (file); |
648 |
|
|
649 |
/* If file name is magic, call the handler. */ |
/* If file name is magic, call the handler. */ |
650 |
/* This shouldn't be necessary any more now that `openp' handles it right. |
/* This shouldn't be necessary any more now that `openp' handles it right. |
966 |
|
|
967 |
for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) |
for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) |
968 |
{ |
{ |
969 |
CHECK_STRING (XCAR (tail), 0); |
CHECK_STRING (XCAR (tail)); |
970 |
max_suffix_len = max (max_suffix_len, |
max_suffix_len = max (max_suffix_len, |
971 |
STRING_BYTES (XSTRING (XCAR (tail)))); |
STRING_BYTES (XSTRING (XCAR (tail)))); |
972 |
} |
} |
1450 |
int startval, endval; |
int startval, endval; |
1451 |
Lisp_Object tem; |
Lisp_Object tem; |
1452 |
|
|
1453 |
CHECK_STRING (string,0); |
CHECK_STRING (string); |
1454 |
|
|
1455 |
if (NILP (end)) |
if (NILP (end)) |
1456 |
endval = XSTRING (string)->size; |
endval = XSTRING (string)->size; |
1457 |
else |
else |
1458 |
{ |
{ |
1459 |
CHECK_NUMBER (end, 2); |
CHECK_NUMBER (end); |
1460 |
endval = XINT (end); |
endval = XINT (end); |
1461 |
if (endval < 0 || endval > XSTRING (string)->size) |
if (endval < 0 || endval > XSTRING (string)->size) |
1462 |
args_out_of_range (string, end); |
args_out_of_range (string, end); |
1466 |
startval = 0; |
startval = 0; |
1467 |
else |
else |
1468 |
{ |
{ |
1469 |
CHECK_NUMBER (start, 1); |
CHECK_NUMBER (start); |
1470 |
startval = XINT (start); |
startval = XINT (start); |
1471 |
if (startval < 0 || startval > endval) |
if (startval < 0 || startval > endval) |
1472 |
args_out_of_range (string, start); |
args_out_of_range (string, start); |
2938 |
if (NILP (obarray)) obarray = Vobarray; |
if (NILP (obarray)) obarray = Vobarray; |
2939 |
obarray = check_obarray (obarray); |
obarray = check_obarray (obarray); |
2940 |
|
|
2941 |
CHECK_STRING (string, 0); |
CHECK_STRING (string); |
2942 |
|
|
2943 |
tem = oblookup (obarray, XSTRING (string)->data, |
tem = oblookup (obarray, XSTRING (string)->data, |
2944 |
XSTRING (string)->size, |
XSTRING (string)->size, |
2988 |
|
|
2989 |
if (!SYMBOLP (name)) |
if (!SYMBOLP (name)) |
2990 |
{ |
{ |
2991 |
CHECK_STRING (name, 0); |
CHECK_STRING (name); |
2992 |
string = XSTRING (name); |
string = XSTRING (name); |
2993 |
} |
} |
2994 |
else |
else |
3020 |
XSETSTRING (string, XSYMBOL (name)->name); |
XSETSTRING (string, XSYMBOL (name)->name); |
3021 |
else |
else |
3022 |
{ |
{ |
3023 |
CHECK_STRING (name, 0); |
CHECK_STRING (name); |
3024 |
string = name; |
string = name; |
3025 |
} |
} |
3026 |
|
|
3141 |
{ |
{ |
3142 |
register int i; |
register int i; |
3143 |
register Lisp_Object tail; |
register Lisp_Object tail; |
3144 |
CHECK_VECTOR (obarray, 1); |
CHECK_VECTOR (obarray); |
3145 |
for (i = XVECTOR (obarray)->size - 1; i >= 0; i--) |
for (i = XVECTOR (obarray)->size - 1; i >= 0; i--) |
3146 |
{ |
{ |
3147 |
tail = XVECTOR (obarray)->contents[i]; |
tail = XVECTOR (obarray)->contents[i]; |