diff options
Diffstat (limited to 'ide/gtk_parsing.ml')
| -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 9f5c9924..d554bebd 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 |