From 1d288aefee1f72d5a0b56d90eca25aef7f32014f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Sep 1996 04:38:10 +0000 Subject: [PATCH] (REGEXP_CACHE_SIZE): Increase to 20. (compile_pattern): Check for size match before calling Fstring_equal. --- src/search.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/search.c b/src/search.c index 6f4355f5b88..5713e53fd90 100644 --- a/src/search.c +++ b/src/search.c @@ -30,11 +30,12 @@ Boston, MA 02111-1307, USA. */ #include #include "regex.h" -#define REGEXP_CACHE_SIZE 5 +#define REGEXP_CACHE_SIZE 20 /* If the regexp is non-nil, then the buffer contains the compiled form of that regexp, suitable for searching. */ -struct regexp_cache { +struct regexp_cache +{ struct regexp_cache *next; Lisp_Object regexp; struct re_pattern_buffer buf; @@ -156,7 +157,8 @@ compile_pattern (pattern, regp, translate, posix) for (cpp = &searchbuf_head; ; cpp = &cp->next) { cp = *cpp; - if (!NILP (Fstring_equal (cp->regexp, pattern)) + if (XSTRING (cp->regexp)->size == XSTRING (pattern)->size + && !NILP (Fstring_equal (cp->regexp, pattern)) && cp->buf.translate == translate && cp->posix == posix) break; -- 2.39.2