diff options
author | courtieu <courtieu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-27 16:17:51 +0000 |
---|---|---|
committer | courtieu <courtieu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-27 16:17:51 +0000 |
commit | 2ec958c3c8d2942242837787a3941abb14702b5c (patch) | |
tree | a7efb9343e8af6f27b3182a6a915b1f1d4cc1a78 | |
parent | 7e591e38da21c87741f8873b0d6e4a7b598f75ec (diff) |
Modification of emacs output: No more show script at the end of a proof.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8751 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 688e705a9..42f7ec71b 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -345,7 +345,7 @@ let vernac_start_proof kind sopt (bl,t) lettop hook = let vernac_end_proof = function | Admitted -> admit () | Proved (is_opaque,idopt) -> - if_verbose show_script (); + if not !Options.print_emacs then if_verbose show_script (); match idopt with | None -> save_named is_opaque | Some ((_,id),None) -> save_anonymous is_opaque id |