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

(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

Browse source
This commit is contained in:
Ken Raeburn 2002-08-08 16:59:23 +00:00
parent 7f787cfd76
commit d90ed3b46f
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/coding.c
View file

@ -6884,7 +6884,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */)
if (EQ (operation, Qwrite_region)
&& nargs > 5
&& STRINGP (args[5]))
target_idx = 4;
target_idx = make_number (4);
target = args[XINT (target_idx) + 1];
if (!(STRINGP (target)
|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))