/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.289.2.8 by handa, Sat Nov 22 11:39:53 2003 UTC revision 1.289.2.9 by handa, Sun Nov 23 02:17:20 2003 UTC
# Line 8107  usage: (define-coding-system-internal .. Line 8107  usage: (define-coding-system-internal ..
8107    
8108    if (EQ (coding_type, Qcharset))    if (EQ (coding_type, Qcharset))
8109      {      {
       Lisp_Object list;  
8110        /* Generate a lisp vector of 256 elements.  Each element is nil,        /* Generate a lisp vector of 256 elements.  Each element is nil,
8111           integer, or a list of charset IDs.           integer, or a list of charset IDs.
8112    
# Line 8119  usage: (define-coding-system-internal .. Line 8118  usage: (define-coding-system-internal ..
8118    
8119           If Nth element is a list of charset IDs, N is the first byte           If Nth element is a list of charset IDs, N is the first byte
8120           of one of them.  The list is sorted by dimensions of the           of one of them.  The list is sorted by dimensions of the
8121           charsets.  A charset of smaller dimension comes firtst.           charsets.  A charset of smaller dimension comes firtst. */
8122        */        Lisp_Object list;
8123          int maybe_ascii_compatible = 1;
8124    
8125        for (list = Qnil, tail = charset_list; CONSP (tail); tail = XCDR (tail))        for (list = Qnil, tail = charset_list; CONSP (tail); tail = XCDR (tail))
8126          {          {
8127            struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));            struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));
# Line 8130  usage: (define-coding-system-internal .. Line 8131  usage: (define-coding-system-internal ..
8131                val = CHARSET_SUPERSET (charset);                val = CHARSET_SUPERSET (charset);
8132                for (; CONSP (val); val = XCDR (val))                for (; CONSP (val); val = XCDR (val))
8133                  list = Fcons (XCAR (XCAR (val)), list);                  list = Fcons (XCAR (XCAR (val)), list);
8134                  maybe_ascii_compatible = 0;
8135              }              }
8136            else            else
8137              list = Fcons (XCAR (tail), list);              list = Fcons (XCAR (tail), list);
# Line 8143  usage: (define-coding-system-internal .. Line 8145  usage: (define-coding-system-internal ..
8145            int dim = CHARSET_DIMENSION (charset);            int dim = CHARSET_DIMENSION (charset);
8146            int idx = (dim - 1) * 4;            int idx = (dim - 1) * 4;
8147    
8148            if (CHARSET_ASCII_COMPATIBLE_P (charset))            if (CHARSET_ASCII_COMPATIBLE_P (charset)
8149                  && maybe_ascii_compatible)
8150              CODING_ATTR_ASCII_COMPAT (attrs) = Qt;              CODING_ATTR_ASCII_COMPAT (attrs) = Qt;
8151    
8152            for (i = charset->code_space[idx];            for (i = charset->code_space[idx];

Legend:
Removed from v.1.289.2.8  
changed lines
  Added in v.1.289.2.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26