# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 884387872 0
# Node ID a39bcf9c0e1e9cf4bd9970dd3b1550d8ee5092b0
# Parent  a9c4bf3f4e4608a8e9f5f8a79794da0d31dee492
(skip_chars): Handle multibyte and unibyte strings
for either kind of buffer.  Scan string by bytes and chars.

diff -r a9c4bf3f4e46 -r a39bcf9c0e1e src/syntax.c
--- a/src/syntax.c	Fri Jan 09 23:17:00 1998 +0000
+++ b/src/syntax.c	Fri Jan 09 23:17:52 1998 +0000
@@ -1213,8 +1213,9 @@
   int *char_ranges;
   int n_char_ranges = 0;
   int negate = 0;
-  register int i;
+  register int i, i_byte;
   int multibyte = !NILP (current_buffer->enable_multibyte_characters);
+  int string_multibyte = STRING_MULTIBYTE (string);
 
   CHECK_STRING (string, 0);
   char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2);
@@ -1230,70 +1231,95 @@
   if (XINT (lim) < BEGV)
     XSETFASTINT (lim, BEGV);
 
-  p = XSTRING (string)->data;
-  pend = p + XSTRING (string)->size;
   bzero (fastmap, sizeof fastmap);
 
-  if (p != pend && *p == '^')
+  i = 0, i_byte = 0;
+
+  if (i < XSTRING (string)->size
+      && XSTRING (string)->data[0] == '^')
     {
-      negate = 1; p++;
+      negate = 1; i++, i_byte++;
     }
 
   /* Find the characters specified and set their elements of fastmap.
      If syntaxp, each character counts as itself.
      Otherwise, handle backslashes and ranges specially.  */
 
-  while (p != pend)
+  while (i < XSTRING (string)->size)
     {
-      c = *p;
+      int c_leading_code;
+
+      if (string_multibyte)
+	{
+	  c_leading_code = XSTRING (string)->data[i_byte];
+	  FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
+	}
+      else
+	c = c_leading_code = XSTRING (string)->data[i++];
+
+      /* Convert multibyteness between what the string has
+	 and what the buffer has.  */
       if (multibyte)
 	{
-	  ch = STRING_CHAR (p, pend - p);
-	  p += BYTES_BY_CHAR_HEAD (*p);
+	  if (c >= 0200 && c < 0400)
+	    c += nonascii_insert_offset;
 	}
       else
-	{
-	  ch = c;
-	  p++;
-	}
+	c &= 0377;
+
       if (syntaxp)
-	fastmap[syntax_spec_code[c]] = 1;
+	fastmap[syntax_spec_code[c & 0377]] = 1;
       else
 	{
 	  if (c == '\\')
 	    {
-	      if (p == pend) break;
-	      c = *p++;
+	      if (i == XSTRING (string)->size)
+		break;
+
+	      if (string_multibyte)
+		FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
+	      else
+		c = XSTRING (string)->data[i++];
 	    }
-	  if (p != pend && *p == '-')
+	  if (i == XSTRING (string)->size && XSTRING (string)->data[i] == '-')
 	    {
-	      unsigned int ch2;
+	      unsigned int c2;
+
+	      /* Skip over the dash.  */
+	      i++, i_byte++;
+
+	      if (i == XSTRING (string)->size)
+		break;
 
-	      p++;
-	      if (p == pend) break;
-	      if (SINGLE_BYTE_CHAR_P (ch))
-		while (c <= *p)
+	      /* Get the end of the range.  */
+	      if (string_multibyte)
+		FETCH_STRING_CHAR_ADVANCE (c2, string, i, i_byte);
+	      else
+		c2 = XSTRING (string)->data[i++];
+
+	      if (SINGLE_BYTE_CHAR_P (c))
+		while (c <= c2)
 		  {
 		    fastmap[c] = 1;
 		    c++;
 		  }
 	      else
 		{
-		  fastmap[c] = 1; /* C is the base leading-code.  */
-		  ch2 = STRING_CHAR (p, pend - p);
-		  if (ch <= ch2)
-		    char_ranges[n_char_ranges++] = ch,
-		    char_ranges[n_char_ranges++] = ch2;
+		  fastmap[c_leading_code] = 1;
+		  if (c <= c2)
+		    {
+		      char_ranges[n_char_ranges++] = c;
+		      char_ranges[n_char_ranges++] = c2;
+		    }
 		}
-	      p += multibyte ? BYTES_BY_CHAR_HEAD (*p) : 1;
 	    }
 	  else
 	    {
-	      fastmap[c] = 1;
-	      if (!SINGLE_BYTE_CHAR_P (ch))
+	      fastmap[c_leading_code] = 1;
+	      if (!SINGLE_BYTE_CHAR_P (c))
 		{
-		  char_ranges[n_char_ranges++] = ch;
-		  char_ranges[n_char_ranges++] = ch;
+		  char_ranges[n_char_ranges++] = c;
+		  char_ranges[n_char_ranges++] = c;
 		}
 	    }
 	}