Permalink
Browse files

Fixed bad gravity of mark that would make CoqIDE loop whenever Replac…

…e 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
  • Loading branch information...
1 parent dbee3f7 commit 83b342c02f2a4897ada8d43afc050c36f477e1d9 ppedrot committed with Maxime Dénès Apr 23, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 ide/wg_Find.ml
View
@@ -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

0 comments on commit 83b342c

Please sign in to comment.