# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 885991045 0
# Node ID f0aa5cc14e8acf7c3cb5b3ded3f88c545b7d1c26
# Parent  0c51c56d0a4f5dc36bb30b1f38628acb9eaab1c0
(fast_string_match): Give re_search byte size of
STRING.
(trivial_regexp_p): Initialize LEN to byte size of REGEXP.
(search_buffer): Give re_search_2 STARTPOS, RANGE and STOP by
counting them by bytes.

diff -r 0c51c56d0a4f -r f0aa5cc14e8a src/search.c
--- a/src/search.c	Tue Jan 27 20:43:57 1998 +0000
+++ b/src/search.c	Wed Jan 28 12:37:25 1998 +0000
@@ -429,7 +429,7 @@
   re_match_object = string;
   
   val = re_search (bufp, (char *) XSTRING (string)->data,
-		   XSTRING (string)->size, 0, XSTRING (string)->size,
+		   XSTRING (string)->size_byte, 0, XSTRING (string)->size_byte,
 		   0);
   immediate_quit = 0;
   return val;
@@ -922,7 +922,7 @@
 trivial_regexp_p (regexp)
      Lisp_Object regexp;
 {
-  int len = XSTRING (regexp)->size;
+  int len = XSTRING (regexp)->size_byte;
   unsigned char *s = XSTRING (regexp)->data;
   unsigned char c;
   while (--len >= 0)
@@ -1005,6 +1005,8 @@
   if (RE && !trivial_regexp_p (string))
     {
       struct re_pattern_buffer *bufp;
+      int pos_byte = CHAR_TO_BYTE (pos);
+      int lim_byte = CHAR_TO_BYTE (lim);
 
       bufp = compile_pattern (string, &search_regs, trt, posix,
 			      !NILP (current_buffer->enable_multibyte_characters));
@@ -1038,9 +1040,10 @@
 	{
 	  int val;
 	  val = re_search_2 (bufp, (char *) p1, s1, (char *) p2, s2,
-			     pos - BEGV, lim - pos, &search_regs,
+			     pos_byte - BEGV_BYTE, lim_byte - pos_byte,
+			     &search_regs,
 			     /* Don't allow match past current point */
-			     pos - BEGV);
+			     pos_byte - BEGV_BYTE);
 	  if (val == -2)
 	    {
 	      matcher_overflow ();
@@ -1070,8 +1073,9 @@
 	{
 	  int val;
 	  val = re_search_2 (bufp, (char *) p1, s1, (char *) p2, s2,
-			     pos - BEGV, lim - pos, &search_regs,
-			     lim - BEGV);
+			     pos_byte - BEGV_BYTE, lim_byte - pos_byte,
+			     &search_regs,
+			     lim_byte - BEGV_BYTE);
 	  if (val == -2)
 	    {
 	      matcher_overflow ();