6878 |
if (nargs < 1 + XINT (target_idx)) |
if (nargs < 1 + XINT (target_idx)) |
6879 |
error ("Too few arguments for operation: %s", |
error ("Too few arguments for operation: %s", |
6880 |
SDATA (SYMBOL_NAME (operation))); |
SDATA (SYMBOL_NAME (operation))); |
6881 |
|
/* For write-region, if the 6th argument (i.e. VISIT, the 5th |
6882 |
|
argument to write-region) is string, it must be treated as a |
6883 |
|
target file name. */ |
6884 |
|
if (EQ (operation, Qwrite_region) |
6885 |
|
&& nargs > 5 |
6886 |
|
&& STRINGP (args[5])) |
6887 |
|
target_idx = 4; |
6888 |
target = args[XINT (target_idx) + 1]; |
target = args[XINT (target_idx) + 1]; |
6889 |
if (!(STRINGP (target) |
if (!(STRINGP (target) |
6890 |
|| (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) |
|| (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) |