diff options
Diffstat (limited to 'ide/find_phrase.mll')
| -rw-r--r-- | ide/find_phrase.mll | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/find_phrase.mll b/ide/find_phrase.mll index ed124461f..94fc0174f 100644 --- a/ide/find_phrase.mll +++ b/ide/find_phrase.mll @@ -14,6 +14,8 @@ let buff = Buffer.create 513 } +let phrase_sep = '.' + rule next_phrase = parse | "(*" { incr length; incr length; skip_comment lexbuf; @@ -24,7 +26,7 @@ rule next_phrase = parse Buffer.add_string buff lexeme; next_phrase lexbuf } - | '.'[' ''\n''\t''\r'] { + | phrase_sep[' ''\n''\t''\r'] { length := !length + 2; Buffer.add_string buff (Lexing.lexeme lexbuf); Buffer.contents buff} |