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

1 files changed, 5 insertions, 3 deletions

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 ""