From 911e07903445c32d75c3d4b2600f6d502eebb06d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 15 Aug 2002 15:00:23 +0000 Subject: [PATCH] (Ffind_operation_coding_system): Lisp_Object/int mixup. --- src/coding.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.39.5