# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 878958344 0
# Node ID acb7aa0aa71f413ef20defd5718c1b8d691135c3
# Parent  71008f909642dd9793316c5d6c638d46bf812f28
(find_charset_in_str): Handle the case that STR
contains invalid multibyte-form.

diff -r 71008f909642 -r acb7aa0aa71f src/charset.c
--- a/src/charset.c	Sat Nov 08 03:05:44 1997 +0000
+++ b/src/charset.c	Sat Nov 08 03:05:44 1997 +0000
@@ -545,9 +545,7 @@
      int len, *charsets;
      Lisp_Object table;
 {
-  int num = 0;
-  int cmpcharp = 0;
-  unsigned char str_work[4], *str_tmp;
+  register int num = 0, c;
 
   if (! CHAR_TABLE_P (table))
     table = Qnil;
@@ -555,46 +553,52 @@
   while (len > 0)
     {
       int bytes, charset;
+      c = *str;
       
-      if (*str == LEADING_CODE_COMPOSITION)
-	{
-	  str++;
-	  len--;
-	  cmpcharp = 1;
-	}
-      else if (CHAR_HEAD_P (str))
-	cmpcharp = 0;
-
-      if (cmpcharp)
+      if (c == LEADING_CODE_COMPOSITION)
 	{
-	  if (*str == 0xA0)
+	  int cmpchar_id = str_cmpchar_id (str, len);
+	  GLYPH *glyph;
+
+	  if (cmpchar_id > 0)
 	    {
-	      str++;
-	      len--;
-	      str_work[0] = *str & 0x7F;
+	      struct cmpchar_info *cmpcharp = cmpchar_table[cmpchar_id];
+	      int i;
+
+	      for (i = 0; i < cmpcharp->glyph_len; i++)
+		{
+		  c = cmpcharp->glyph[i];
+		  if (!NILP (table))
+		    {
+		      if ((c = unify_char (table, c, 0, 0, 0)) < 0)
+			c = cmpcharp->glyph[i];
+		    }
+		  if ((charset = CHAR_CHARSET (c)) < 0)
+		    charset = CHARSET_ASCII;
+		  if (!charsets[charset])
+		    {
+		      charsets[charset] = 1;
+		      num += 1;
+		    }
+		}
+	      str += cmpcharp->len;
+	      len -= cmpcharp->len;
+	      continue;
 	    }
-	  else
-	    {
-	      bcopy (str, str_work, min (4, len));
-	      str_work[0] -= 0x20;
-	    }
-	  str_tmp = str_work;
+
+	  charset = CHARSET_ASCII;
+	  bytes = 1;
 	}
       else
-	str_tmp = str;
-	  
-      bytes = BYTES_BY_CHAR_HEAD (*str_tmp);
-
-      if (NILP (table))
-	charset = CHARSET_AT (str_tmp);
-      else
 	{
-	  int c;
-	  unsigned char c1, c2;
-
-	  SPLIT_STRING(str_tmp, bytes, charset, c1, c2);
-	  if ((c = unify_char (table, -1, charset, c1, c2)) >= 0)
-	    charset = CHAR_CHARSET (c);
+	  c = STRING_CHAR_AND_LENGTH (str, len, bytes);
+	  if (! NILP (table))
+	    {
+	      int c1 = unify_char (table, c, 0, 0, 0);
+	      if (c1 >= 0)
+		c = c1;
+	    }
+	  charset = CHAR_CHARSET (c);
 	}
 
       if (!charsets[charset])