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

(Ffind_operation_coding_system): For write-region, if

Browse source 
VISIT is a filename, make it the target.
This commit is contained in:
Kenichi Handa 2002-08-08 12:34:27 +00:00
parent b12a80582d
commit 7f787cfd76
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/coding.c
View file

@ -6878,6 +6878,13 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */)
if (nargs < 1 + XINT (target_idx))
error ("Too few arguments for operation: %s",
SDATA (SYMBOL_NAME (operation)));
/* For write-region, if the 6th argument (i.e. VISIT, the 5th
argument to write-region) is string, it must be treated as a
target file name. */
if (EQ (operation, Qwrite_region)
&& nargs > 5
&& STRINGP (args[5]))
target_idx = 4;
target = args[XINT (target_idx) + 1];
if (!(STRINGP (target)
|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))