diff options
Diffstat (limited to 'ide/wg_Find.ml')
-rw-r--r-- | ide/wg_Find.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ide/wg_Find.ml b/ide/wg_Find.ml index 95492304b..6bdc4585c 100644 --- a/ide/wg_Find.ml +++ b/ide/wg_Find.ml @@ -118,8 +118,9 @@ class finder (view : GText.view) = match found with | None -> () | Some (start, stop) -> + let () = Printf.printf "%i-%i\n%!" start#offset stop#offset in let start_mark = view#buffer#create_mark start in - let stop_mark = view#buffer#create_mark stop in + let stop_mark = view#buffer#create_mark ~left_gravity:false stop in let _ = view#buffer#delete_interactive ~start ~stop () in let iter = view#buffer#get_iter_at_mark (`MARK start_mark) in let _ = view#buffer#insert_interactive ~iter r_replace_entry#text in |