From 9dd2df4c16078d41df1cf6233c9cf84fffbeee52 Mon Sep 17 00:00:00 2001
From: corbinea
Date: Wed, 31 Jan 2007 13:37:42 +0000
Subject: redirection of errors in coqide + dynamic warning printer (needed for
 tm_egg)

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

(limited to 'ide/ideutils.ml')

diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 7893590abb..0c2e3905db 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -150,12 +150,14 @@ let set_highlight_timer f =
 (* Get back the standard coq out channels *)
 let read_stdout,clear_stdout =
   let out_buff = Buffer.create 100 in
-  Pp_control.std_ft := Format.formatter_of_buffer out_buff;
-  (fun () -> Format.pp_print_flush !Pp_control.std_ft (); 
+  let out_ft = Format.formatter_of_buffer out_buff in
+    Pp_control.std_ft := out_ft;
+    Pp_control.err_ft := out_ft;    
+  (fun () -> Format.pp_print_flush out_ft (); 
      let r = Buffer.contents out_buff in
      Buffer.clear out_buff; r),
   (fun () -> 
-     Format.pp_print_flush !Pp_control.std_ft (); Buffer.clear out_buff)
+     Format.pp_print_flush out_ft (); Buffer.clear out_buff)
 
 
 let last_dir = ref ""
-- 
cgit v1.2.3