# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 965745245 0
# Node ID 9aad40936cfed264a3477bf8e7485f0a3273ed1e
# Parent  22c794dd4d608740a9e8549a7256aa4af6c6f6f0
*coding.c (find_safe_codings): CHAR_TABLE_SET index must be a lisp object.
(Ffind_coding_systems_region_internal): First argument to Fappend must be an
integer, not a lisp object.

diff -r 22c794dd4d60 -r 9aad40936cfe src/ChangeLog
--- a/src/ChangeLog	Tue Aug 08 12:59:56 2000 +0000
+++ b/src/ChangeLog	Tue Aug 08 14:34:05 2000 +0000
@@ -1,3 +1,10 @@
+2000-08-08  Ken Raeburn  <raeburn@gnu.org>
+
+	* coding.c (find_safe_codings): CHAR_TABLE_SET index must be a
+	lisp object.
+	(Ffind_coding_systems_region_internal): First argument to Fappend
+	must be an integer, not a lisp object.
+
 2000-08-08  Kenichi Handa  <handa@etl.go.jp>
 
 	* charset.c (Fchar_width): Doc fix.
diff -r 22c794dd4d60 -r 9aad40936cfe src/coding.c
--- a/src/coding.c	Tue Aug 08 12:59:56 2000 +0000
+++ b/src/coding.c	Tue Aug 08 14:34:05 2000 +0000
@@ -5623,7 +5623,7 @@
 	/* This element was already checked.  Ignore it.  */
 	continue;
       /* Remember that we checked this element.  */
-      CHAR_TABLE_SET (work_table, idx, Qt);
+      CHAR_TABLE_SET (work_table, make_number (idx), Qt);
 
       /* If there are some safe coding systems for C and we have
 	 already found the other set of coding systems for the
@@ -5713,7 +5713,7 @@
       args[0] = safe_codings;
       args[1] = Fchar_table_extra_slot (Vchar_coding_system_table,
 					make_number (0));
-      safe_codings = Fappend (make_number (2), args);
+      safe_codings = Fappend (2, args);
     }
   else
     safe_codings = Fcons (Qraw_text, Fcons (Qemacs_mule, safe_codings));