diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-07-18 09:57:17 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-07-18 09:57:17 +0200 |
| commit | e5e3725fab9daa810a4c8a383886f1c5dc980e85 (patch) | |
| tree | e52a1840f911fe3db1a0ebec855b4984793e81af /ide | |
| parent | 8023d0de14e707d716cb4be9f583a714b10da9bd (diff) | |
| parent | b63abc6b93f458bc7a2a16b45b8941a34c25cb03 (diff) | |
Merge PR #8068: [build] Build Coq and plugins with `-strict-sequence`
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/gtk_parsing.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ide/gtk_parsing.ml b/ide/gtk_parsing.ml index 9f5c99244..d554bebdd 100644 --- a/ide/gtk_parsing.ml +++ b/ide/gtk_parsing.ml @@ -35,8 +35,11 @@ let find_word_start (it:GText.iter) = (Minilib.log "find_word_start: cannot backward"; it) else if is_word_char it#char then step_to_start it - else (it#nocopy#forward_char; - Minilib.log ("Word start at: "^(string_of_int it#offset));it) + else begin + ignore(it#nocopy#forward_char); + Minilib.log ("Word start at: "^(string_of_int it#offset)); + it + end in step_to_start it#copy |