CoqIde: Install.ide Revert bugfix.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3741 85f007b7-540e-0410-9357-904b9bb8a0f7

4 files changed, 10 insertions, 4 deletions

diff --git a/ide/coq.ml b/ide/coq.ml
index d4e33b6458..04f45c24d9 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -93,7 +93,7 @@ let print_toplevel_error exc =
 let process_exn e = let s,loc=print_toplevel_error e in (msgnl s,loc)
 
 let interp_last last = 
-  prerr_string "*"; flush stderr;
+  prerr_string "*";
   try
     vernac_com (States.with_heavy_rollback Vernacentries.interp) last
   with e ->
diff --git a/ide/coqide.ml b/ide/coqide.ml
index af9bfefbf9..250a521b72 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -95,7 +95,7 @@ module Vector = struct
   let exists f t =
     let l = Array.length !t in
     let rec test i = 
-      i < l && (!t.(i) = None || f (out_some !t.(i)) || test (i+1)) 
+      i < l && ((!t.(i) <> None && f (out_some !t.(i))) || test (i+1)) 
     in 
     test 0
 end
@@ -1199,7 +1199,9 @@ let main files =
   in
   let has_something_to_save () = 
     Vector.exists
-      (fun {view=view} -> view#buffer#modified)
+      (function 
+	 | {view=view} -> view#buffer#modified        
+	 )
       input_views
   in
   ignore (saveall_m#connect#activate saveall_f);
diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 59970a622a..784c4a4d4b 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -27,7 +27,9 @@ let process_pending () =
 let debug = Options.debug
 
 let prerr_endline s =
-  if !debug then (prerr_endline s;flush stderr) else ()
+  if !debug then (prerr_endline s;flush stderr)
+let prerr_string s =
+  if !debug then (prerr_string s;flush stderr)
 
 let print_id id =
   prerr_endline ("GOT sig id :"^(string_of_int (Obj.magic id)))
diff --git a/ide/utils/configwin_ihm.ml b/ide/utils/configwin_ihm.ml
index 3b26312658..f6c4e6daad 100644
--- a/ide/utils/configwin_ihm.ml
+++ b/ide/utils/configwin_ihm.ml
@@ -15,6 +15,7 @@ open Configwin_types
 
 module O = Uoptions
 
+
 (** The file where the html config is. *)
 let file_html_config = Filename.concat Configwin_messages.home ".configwin_html"
   
@@ -37,6 +38,7 @@ let html_config_file_and_option () =
   O.load ini ;
   (ini, bindings)
 
+
 (** This variable contains the last directory where the user selected a file.*)
 let last_dir = ref "";;