From 975f250a8eda55ea305e8568152c50d9cc8fadeb Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 8 Aug 2000 14:34:05 +0000 Subject: [PATCH] *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. --- src/ChangeLog | 7 +++++++ src/coding.c | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 404eadb3b34..b1a2b6aca82 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2000-08-08 Ken Raeburn + + * 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 * charset.c (Fchar_width): Doc fix. diff --git a/src/coding.c b/src/coding.c index 6b8f9297dc0..5b44a9e035a 100644 --- a/src/coding.c +++ b/src/coding.c @@ -5623,7 +5623,7 @@ find_safe_codings (p, pend, safe_codings, work_table, single_byte_char_found) /* 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 @@ DEFUN ("find-coding-systems-region-internal", 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)); -- 2.39.2