From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Aug 2002 15:00:23 +0000 (+0000)
Subject: (Ffind_operation_coding_system): Lisp_Object/int mixup.
X-Git-Tag: emacs-pretest-21.2.91~123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=911e07903445c32d75c3d4b2600f6d502eebb06d;p=emacs.git

(Ffind_operation_coding_system): Lisp_Object/int mixup.
---

diff --git a/src/coding.c b/src/coding.c
index b42beb17201..4de35bee845 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6844,7 +6844,7 @@ which is a list of all the arguments given to this function.")
   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))))