From: Kenichi Handa <handa@m17n.org>
Date: Mon, 18 Oct 2004 12:26:36 +0000 (+0000)
Subject: (fast_string_match_ignore_case): New function.
X-Git-Tag: ttn-vms-21-2-B4~4503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be5f4dfb0144b5aa94c51a82acf6dd073efc3527;p=emacs.git

(fast_string_match_ignore_case): New function.
---

diff --git a/src/search.c b/src/search.c
index 0375f353dd2..f7bee1b8683 100644
--- a/src/search.c
+++ b/src/search.c
@@ -493,6 +493,27 @@ fast_c_string_match_ignore_case (regexp, string)
   immediate_quit = 0;
   return val;
 }
+
+/* Like fast_string_match but ignore case.  */
+
+int
+fast_string_match_ignore_case (regexp, string)
+     Lisp_Object regexp, string;
+{
+  int val;
+  struct re_pattern_buffer *bufp;
+
+  bufp = compile_pattern (regexp, 0, Vascii_downcase_table,
+			  0, STRING_MULTIBYTE (string));
+  immediate_quit = 1;
+  re_match_object = string;
+
+  val = re_search (bufp, (char *) SDATA (string),
+		   SBYTES (string), 0,
+		   SBYTES (string), 0);
+  immediate_quit = 0;
+  return val;
+}
 
 /* The newline cache: remembering which sections of text have no newlines.  */