Fixed bad gravity of mark that would make CoqIDE loop whenever Replace All was used with a self-contained replacement.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15237 85f007b7-540e-0410-9357-904b9bb8a0f7

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