From: Ken Raeburn <raeburn@raeburn.org>
Date: Thu, 8 Aug 2002 16:59:23 +0000 (+0000)
Subject: (Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
X-Git-Tag: ttn-vms-21-2-B4~13733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 85064397cf1..8c87db20540 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/src/coding.c b/src/coding.c
index 952fc1408f5..57d7e4b21fd 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -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))))