diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/coding.c | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 404eadb3b3..b1a2b6aca8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2000-08-08 Ken Raeburn <[email protected]> + + * 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 <[email protected]> * charset.c (Fchar_width): Doc fix. diff --git a/src/coding.c b/src/coding.c index 6b8f9297dc..5b44a9e035 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)); |