Mercurial > emacs
changeset 12983:ed39ba26313b
(re_search_2): If pattern starts with \=, optimize search.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Sep 1995 18:43:30 +0000 |
| parents | 385a67ad96c3 |
| children | 7c38c6da4aae |
| files | src/regex.c |
| diffstat | 1 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/regex.c Fri Sep 01 02:02:17 1995 +0000 +++ b/src/regex.c Fri Sep 01 18:43:30 1995 +0000 @@ -3036,7 +3036,7 @@ case at_dot: case after_dot: continue; -#endif /* not emacs */ +#endif /* emacs */ case no_op: @@ -3275,6 +3275,17 @@ range = 1; } +#ifdef emacs + /* In a forward search for something that starts with \=. + don't keep searching past point. */ + if (bufp->used > 0 && (re_opcode_t) bufp->buffer[0] == at_dot && range > 0) + { + range = PT - startpos; + if (range <= 0) + return -1; + } +#endif /* emacs */ + /* Update the fastmap now if not correct already. */ if (fastmap && !bufp->fastmap_accurate) if (re_compile_fastmap (bufp) == -2) @@ -4678,13 +4689,6 @@ if (PTR_CHAR_POS ((unsigned char *) d) <= point) goto fail; break; -#if 0 /* not emacs19 */ - case at_dot: - DEBUG_PRINT1 ("EXECUTING at_dot.\n"); - if (PTR_CHAR_POS ((unsigned char *) d) + 1 != point) - goto fail; - break; -#endif /* not emacs19 */ case syntaxspec: DEBUG_PRINT2 ("EXECUTING syntaxspec %d.\n", mcnt);