From be5f4dfb0144b5aa94c51a82acf6dd073efc3527 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 18 Oct 2004 12:26:36 +0000 Subject: [PATCH] (fast_string_match_ignore_case): New function. --- src/search.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) 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. */ -- 2.39.5