From 2ec958c3c8d2942242837787a3941abb14702b5c Mon Sep 17 00:00:00 2001
From: courtieu
Date: Thu, 27 Apr 2006 16:17:51 +0000
Subject: 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
---
 toplevel/vernacentries.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 688e705a9e..42f7ec71b8 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
-- 
cgit v1.2.3