460 |
immediate_quit = 0; |
immediate_quit = 0; |
461 |
return val; |
return val; |
462 |
} |
} |
463 |
|
|
464 |
|
/* Like fast_string_match but ignore case. */ |
465 |
|
|
466 |
|
int |
467 |
|
fast_string_match_ignore_case (regexp, string) |
468 |
|
Lisp_Object regexp, string; |
469 |
|
{ |
470 |
|
int val; |
471 |
|
struct re_pattern_buffer *bufp; |
472 |
|
|
473 |
|
bufp = compile_pattern (regexp, 0, Vascii_downcase_table, |
474 |
|
0, STRING_MULTIBYTE (string)); |
475 |
|
immediate_quit = 1; |
476 |
|
re_match_object = string; |
477 |
|
|
478 |
|
val = re_search (bufp, (char *) SDATA (string), |
479 |
|
SBYTES (string), 0, |
480 |
|
SBYTES (string), 0); |
481 |
|
immediate_quit = 0; |
482 |
|
return val; |
483 |
|
} |
484 |
|
|
485 |
/* The newline cache: remembering which sections of text have no newlines. */ |
/* The newline cache: remembering which sections of text have no newlines. */ |
486 |
|
|