(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

d90ed3b4 · Ken Raeburn · 7f787cfd · d90ed3b4 · d90ed3b4
Commit d90ed3b4 authored Aug 08, 2002 by Ken Raeburn
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

src/ChangeLog src/ChangeLog +5 -0

src/coding.c src/coding.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2002-08-08  Ken Raeburn  <raeburn@mit.edu>
+
+	* coding.c (Ffind_operation_coding_system): Fix Lisp_Object/int
+	mixup.
+
 2002-08-08  Kenichi Handa  <handa@etl.go.jp>

 	* coding.c (Ffind_operation_coding_system): For write-region, if

--- 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))))