diff options
| author | monate | 2003-06-06 13:43:32 +0000 |
|---|---|---|
| committer | monate | 2003-06-06 13:43:32 +0000 |
| commit | 9955d65b30b4285d217feb4ae6ea5076e7579bf8 (patch) | |
| tree | 24fd8b2b22040b0ce9213a7437be90afcc3199c3 | |
| parent | ffe10c13e3851c33f8320328e9efb6814914a5a3 (diff) | |
coqide: compile sans activate repare
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4102 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coqide.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 7331c97861..ae7dfbec57 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1219,11 +1219,12 @@ Please restart and report NOW."; (match t with | VernacBeginSection _ | VernacDefineModule _ | VernacDeclareModule _ | VernacDeclareModuleType _ - | VernacEndSegment _ + | VernacEndSegment _ -> reset_to_mod id | _ -> reset_to id); update_input () | { ast = _, ( VernacStartTheoremProof _ + | VernacGoal _ | VernacDefinition (_,_,ProveBody _,_,_)); reset_info=Reset(id,{contents=false})} -> ignore (pop ()); @@ -2273,6 +2274,7 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); !flash_info (f ^ " successfully compiled") else begin !flash_info (f ^ " failed to compile"); + activate_input (notebook ())#current_page; av#process_until_end_or_error; av#insert_message "Compilation output:\n"; av#insert_message res |