Mercurial > emacs
changeset 30674:9aad40936cfe
*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.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Tue, 08 Aug 2000 14:34:05 +0000 |
| parents | 22c794dd4d60 |
| children | 8a516a1f76a7 |
| files | src/ChangeLog src/coding.c |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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));