From: Stefan Monnier Date: Thu, 15 Aug 2002 15:00:23 +0000 (+0000) Subject: (Ffind_operation_coding_system): Lisp_Object/int mixup. X-Git-Tag: emacs-pretest-21.2.91~123 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=911e07903445c32d75c3d4b2600f6d502eebb06d;p=emacs.git (Ffind_operation_coding_system): Lisp_Object/int mixup. --- 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))))