]> git.eshelyaron.com Git - emacs.git/commitdiff
(Ffind_operation_coding_system): Lisp_Object/int mixup.
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 15 Aug 2002 15:00:23 +0000 (15:00 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 15 Aug 2002 15:00:23 +0000 (15:00 +0000)
src/coding.c

index b42beb1720153cec95e111ebcb49acf376fb18f0..4de35bee845d0056aeb96d3ed189344e42209783 100644 (file)
@@ -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))))