diff options
| author |  monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-14 12:09:29 +0000 |
|---|---|---|
| committer | monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-14 12:09:29 +0000 |
| commit | 05c1e8d802c326b28db14483390af2d83bd6d19a (patch) | |
| tree | 7883a437ec6cd50c9c50721fd8a116a2fd67a7b9 /ide/find_phrase.mll | |
| parent | adfffe936ed1d22f39bd12b7013447473697db74 (diff) | |
coqide: load/save file encoding support/
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4021 85f007b7-540e-0410-9357-904b9bb8a0f7
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} |