From d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Thu, 8 Aug 2002 16:59:23 +0000 Subject: [PATCH] (Ffind_operation_coding_system): Fix Lisp_Object/int mixup. --- src/ChangeLog | 5 +++++ src/coding.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * coding.c (Ffind_operation_coding_system): Fix Lisp_Object/int + mixup. + 2002-08-08 Kenichi Handa * 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)))) -- 2.39.2