From e3fa43b82f5deb61faf2dddca01e7f1576abb352 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Mon, 23 Apr 2012 13:26:44 +0000 Subject: 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 --- ide/wg_Find.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ide/wg_Find.ml') 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 -- cgit v1.2.3