diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-16 11:57:43 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-16 11:57:43 +0200 |
commit | d9009ceedf928ef9567f7b3045c46df00662c21d (patch) | |
tree | 6746aa12ec344dd52d9375b1bc4caf84ebcc81e8 /ide | |
parent | fa324f9bedcc8f05421f729e49ebd0494aeb8765 (diff) | |
parent | 3941c270d79c3e3a4be12ba260a2694e523e4229 (diff) |
Merge branch 'v8.5' into v8.6
Diffstat (limited to 'ide')
-rw-r--r-- | ide/coqOps.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 18557ab6b..50b3f2c0a 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -339,8 +339,11 @@ object(self) method private show_goals_aux ?(move_insert=false) () = Coq.PrintOpt.set_printing_width proof#width; if move_insert then begin - buffer#place_cursor ~where:self#get_start_of_input; - script#recenter_insert; + let dest = self#get_start_of_input in + if (buffer#get_iter_at_mark `INSERT)#compare dest <= 0 then begin + buffer#place_cursor ~where:dest; + script#recenter_insert + end end; Coq.bind (Coq.goals ~logger:messages#push ()) (function | Fail x -> self#handle_failure_aux ~move_insert x |