changeset 46839:4acadb428f41

(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
author Ken Raeburn <raeburn@raeburn.org>
date Thu, 08 Aug 2002 16:59:15 +0000
parents 395572099269
children 65ec8c8b0b3e
files src/coding.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))