247 |
/* Qt denotes that Ffind_operation_coding_system is not yet called. */ |
/* Qt denotes that Ffind_operation_coding_system is not yet called. */ |
248 |
coding_systems = Qt; |
coding_systems = Qt; |
249 |
|
|
250 |
CHECK_STRING (args[0], 0); |
CHECK_STRING (args[0]); |
251 |
|
|
252 |
error_file = Qt; |
error_file = Qt; |
253 |
|
|
269 |
int must_encode = 0; |
int must_encode = 0; |
270 |
|
|
271 |
for (i = 4; i < nargs; i++) |
for (i = 4; i < nargs; i++) |
272 |
CHECK_STRING (args[i], i); |
CHECK_STRING (args[i]); |
273 |
|
|
274 |
for (i = 4; i < nargs; i++) |
for (i = 4; i < nargs; i++) |
275 |
if (STRING_MULTIBYTE (args[i])) |
if (STRING_MULTIBYTE (args[i])) |
299 |
if (nargs >= 2 && ! NILP (args[1])) |
if (nargs >= 2 && ! NILP (args[1])) |
300 |
{ |
{ |
301 |
infile = Fexpand_file_name (args[1], current_buffer->directory); |
infile = Fexpand_file_name (args[1], current_buffer->directory); |
302 |
CHECK_STRING (infile, 1); |
CHECK_STRING (infile); |
303 |
} |
} |
304 |
else |
else |
305 |
infile = build_string (NULL_DEVICE); |
infile = build_string (NULL_DEVICE); |
335 |
buffer = Fget_buffer_create (buffer); |
buffer = Fget_buffer_create (buffer); |
336 |
/* Mention the buffer name for a better error message. */ |
/* Mention the buffer name for a better error message. */ |
337 |
if (NILP (buffer)) |
if (NILP (buffer)) |
338 |
CHECK_BUFFER (spec_buffer, 2); |
CHECK_BUFFER (spec_buffer); |
339 |
CHECK_BUFFER (buffer, 2); |
CHECK_BUFFER (buffer); |
340 |
} |
} |
341 |
} |
} |
342 |
else |
else |
1419 |
char *value; |
char *value; |
1420 |
int valuelen; |
int valuelen; |
1421 |
|
|
1422 |
CHECK_STRING (var, 0); |
CHECK_STRING (var); |
1423 |
if (getenv_internal (XSTRING (var)->data, STRING_BYTES (XSTRING (var)), |
if (getenv_internal (XSTRING (var)->data, STRING_BYTES (XSTRING (var)), |
1424 |
&value, &valuelen)) |
&value, &valuelen)) |
1425 |
return make_string (value, valuelen); |
return make_string (value, valuelen); |