comparison src/coding.c @ 89648:d5641a606e08

(Fdefine_coding_system_internal): Fix checking of ascii compatibility.

89647:b1e7c4bffed1

  CHECK_LIST (val);
  CODING_ATTR_PLIST (attrs) = val;

  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.

	 If Nth element is nil, the byte code N is invalid in this
	 coding system.

	 If Nth element is a number NUM, N is the first byte of a
	 charset whose ID is NUM.

	 If Nth element is a list of charset IDs, N is the first byte
	 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);
	}

	{
	  struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));
	  int dim = CHARSET_DIMENSION (charset);
	  int idx = (dim - 1) * 4;

	  if (CHARSET_ASCII_COMPATIBLE_P (charset))
	    CODING_ATTR_ASCII_COMPAT (attrs) = Qt;

	  for (i = charset->code_space[idx];
	       i <= charset->code_space[idx + 1]; i++)
	    {

89648:d5641a606e08

  CHECK_LIST (val);
  CODING_ATTR_PLIST (attrs) = val;

  if (EQ (coding_type, Qcharset))
    {
      /* Generate a lisp vector of 256 elements.  Each element is nil,
	 integer, or a list of charset IDs.

	 If Nth element is nil, the byte code N is invalid in this
	 coding system.

	 If Nth element is a number NUM, N is the first byte of a
	 charset whose ID is NUM.

	 If Nth element is a list of charset IDs, N is the first byte
	 of one of them.  The list is sorted by dimensions of the
	 charsets.  A charset of smaller dimension comes firtst. */
      Lisp_Object list;
      int maybe_ascii_compatible = 1;

      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);
	      maybe_ascii_compatible = 0;
	    }
	  else
	    list = Fcons (XCAR (tail), list);
	}

	{
	  struct charset *charset = CHARSET_FROM_ID (XFASTINT (XCAR (tail)));
	  int dim = CHARSET_DIMENSION (charset);
	  int idx = (dim - 1) * 4;

	  if (CHARSET_ASCII_COMPATIBLE_P (charset)
	      && maybe_ascii_compatible)
	    CODING_ATTR_ASCII_COMPAT (attrs) = Qt;

	  for (i = charset->code_space[idx];
	       i <= charset->code_space[idx + 1]; i++)
	    {