mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-21 05:00:47 -08:00
Code Issues Projects Releases Wiki Activity

(Fdefine_coding_system_internal): Fix for the case that

Browse source 
coding_type is Qcharset.
This commit is contained in:
Kenichi Handa 2003-05-20 13:05:14 +00:00
parent e3400864d2
commit 4187a77da7
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/coding.c
View file

@ -7835,6 +7835,7 @@ usage: (define-coding-system-internal ...) */)
if (EQ (coding_type, Qcharset))
{
Lisp_Object list;
/* Generate a lisp vector of 256 elements. Each element is nil,
integer, or a list of charset IDs.
@ -7848,9 +7849,23 @@ usage: (define-coding-system-internal ...) */)
of one of them. The list is sorted by dimensions of the
charsets. A charset of smaller dimension comes firtst.
*/
for (list = Qnil, tail = charset_list; CONSP (tail); tail = XCDR (tail))
{
struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));
if (charset->method == CHARSET_METHOD_SUPERSET)
{
val = CHARSET_SUPERSET (charset);
for (; CONSP (val); val = XCDR (val))
list = Fcons (XCAR (XCAR (val)), list);
}
else
list = Fcons (XCAR (tail), list);
}
val = Fmake_vector (make_number (256), Qnil);
for (tail = charset_list; CONSP (tail); tail = XCDR (tail))
for (tail = Fnreverse (list); CONSP (tail); tail = XCDR (tail))
{
struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));
int dim = CHARSET_DIMENSION (charset);