Commit d90ed3b4 authored by Ken Raeburn's avatar Ken Raeburn
Browse files

(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

parent 7f787cfd
2002-08-08 Ken Raeburn <raeburn@mit.edu>
* coding.c (Ffind_operation_coding_system): Fix Lisp_Object/int
mixup.
2002-08-08 Kenichi Handa <handa@etl.go.jp>
* coding.c (Ffind_operation_coding_system): For write-region, if
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment