From ae3a6c63018d5743c16ab388d3e1f9bfde0eb43d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 10 May 2008 16:35:46 +0000
Subject: Correction bug #1842 + correction bug initialisation introduit dans
 commit 10916

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10917 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/ideutils.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index a3fd090840..dfcf61ef52 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -151,9 +151,13 @@ let set_highlight_timer f =
 let init_stdout,read_stdout,clear_stdout =
   let out_buff = Buffer.create 100 in
   let out_ft = Format.formatter_of_buffer out_buff in
+  let deep_out_ft = Format.formatter_of_buffer out_buff in
+  let _ = Pp_control.set_gp deep_out_ft Pp_control.deep_gp in
   (fun () -> 
     Pp_control.std_ft := out_ft;
-    Pp_control.err_ft := out_ft),
+    Pp_control.err_ft := out_ft;
+    Pp_control.deep_ft := deep_out_ft;
+),
   (fun () -> Format.pp_print_flush out_ft (); 
      let r = Buffer.contents out_buff in
      prerr_endline "Output from Coq is: "; prerr_endline r;
-- 
cgit v1.2.3