# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1028825955 0
# Node ID 4acadb428f419e83ffa455e55e9e65fcbbfe15cf
# Parent  3955720992696b194c078e350ce98867cb378421
(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

diff -r 395572099269 -r 4acadb428f41 src/coding.c
--- a/src/coding.c	Thu Aug 08 12:34:27 2002 +0000
+++ b/src/coding.c	Thu Aug 08 16:59:15 2002 +0000
@@ -6884,7 +6884,7 @@
   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))))