493 |
immediate_quit = 0; |
immediate_quit = 0; |
494 |
return val; |
return val; |
495 |
} |
} |
496 |
|
|
497 |
|
/* Like fast_string_match but ignore case. */ |
498 |
|
|
499 |
|
int |
500 |
|
fast_string_match_ignore_case (regexp, string) |
501 |
|
Lisp_Object regexp, string; |
502 |
|
{ |
503 |
|
int val; |
504 |
|
struct re_pattern_buffer *bufp; |
505 |
|
|
506 |
|
bufp = compile_pattern (regexp, 0, Vascii_downcase_table, |
507 |
|
0, STRING_MULTIBYTE (string)); |
508 |
|
immediate_quit = 1; |
509 |
|
re_match_object = string; |
510 |
|
|
511 |
|
val = re_search (bufp, (char *) SDATA (string), |
512 |
|
SBYTES (string), 0, |
513 |
|
SBYTES (string), 0); |
514 |
|
immediate_quit = 0; |
515 |
|
return val; |
516 |
|
} |
517 |
|
|
518 |
/* The newline cache: remembering which sections of text have no newlines. */ |
/* The newline cache: remembering which sections of text have no newlines. */ |
519 |
|
|