diff options
| -rw-r--r-- | ide/coq_lex.mll | 2 | ||||
| -rw-r--r-- | ide/coqide.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ide/coq_lex.mll b/ide/coq_lex.mll index ea981d7b75..01c3025e6a 100644 --- a/ide/coq_lex.mll +++ b/ide/coq_lex.mll @@ -81,7 +81,7 @@ let identchar = ['$' 'A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9'] let ident = firstchar identchar* -let sentence_sep = '.' [ ' ' '\n' '\t' ] +let sentence_sep = '.' [ ' ' '\r' '\n' '\t' ] let multiword_declaration = "Module" (space+ "Type")? diff --git a/ide/coqide.ml b/ide/coqide.ml index c838e603ef..b1b2550657 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -451,7 +451,7 @@ let split_slice_lax (buffer:GText.buffer) from upto = let rec grab_safe_sentence_start (iter:GText.iter) soi = let lax_back = iter#backward_char#has_tag Tags.Script.sentence in - let on_space = List.mem iter#char [0x09;0x0A;0x20] in + let on_space = List.mem iter#char [0x09;0x0A;0x20;0x0D] in let full_ending = iter#is_start || (lax_back & on_space) in if full_ending then iter else if iter#compare soi <= 0 then raise Not_found |