mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

*coding.c (find_safe_codings): CHAR_TABLE_SET index must be a lisp object.

Browse source 
(Ffind_coding_systems_region_internal): First argument to Fappend must be an
integer, not a lisp object.
This commit is contained in:
Ken Raeburn 2000-08-08 14:34:05 +00:00
parent 4245f3d2ec
commit 975f250a8e
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -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> 2000-08-08 Kenichi Handa <handa@etl.go.jp>
* charset.c (Fchar_width): Doc fix. * charset.c (Fchar_width): Doc fix.

4
src/coding.c
View file

@ -5623,7 +5623,7 @@ find_safe_codings (p, pend, safe_codings, work_table, single_byte_char_found)
/* This element was already checked. Ignore it. */ /* This element was already checked. Ignore it. */
continue; continue;
/* Remember that we checked this element. */ /* 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 /* If there are some safe coding systems for C and we have
already found the other set of coding systems for the 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[0] = safe_codings;
args[1] = Fchar_table_extra_slot (Vchar_coding_system_table, args[1] = Fchar_table_extra_slot (Vchar_coding_system_table,
make_number (0)); make_number (0));
safe_codings = Fappend (make_number (2), args); safe_codings = Fappend (2, args);
} }
else else
safe_codings = Fcons (Qraw_text, Fcons (Qemacs_mule, safe_codings)); safe_codings = Fcons (Qraw_text, Fcons (Qemacs_mule, safe_codings));