[Emacs-diffs] Changes to emacs/src/search.c [lexbind]

[Miles Bader]

Index: emacs/src/search.c
diff -c emacs/src/search.c:1.164.2.10 emacs/src/search.c:1.164.2.11
*** emacs/src/search.c:1.164.2.10       Sat Jul 17 02:51:58 2004
--- emacs/src/search.c  Mon Oct 25 04:22:27 2004
***************
*** 493,498 ****
--- 493,519 ----
    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.  */