diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-15 12:49:46 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-15 12:49:46 +0000 |
commit | 68833747ac16f1be8285895c1eb7d412764c2eff (patch) | |
tree | 32897b5f5d2507815e2747c09325b87282680424 /ide/coqide_main.ml4 | |
parent | 98e8b75b640c93abc63140ce1fc3dc445d775066 (diff) |
Coqide: display initial connection errors in popups instead of on stderr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15325 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide_main.ml4')
-rw-r--r-- | ide/coqide_main.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/coqide_main.ml4 b/ide/coqide_main.ml4 index 1e71b8da4..4c546ab7f 100644 --- a/ide/coqide_main.ml4 +++ b/ide/coqide_main.ml4 @@ -85,7 +85,7 @@ let () = else failwith ("Coqide internal error: " ^ msg))); let argl = Array.to_list Sys.argv in let argl = Coqide.read_coqide_args argl in - let files = Coqide.process_argv argl in + let files = Coq.filter_coq_opts (List.tl argl) in let args = List.filter (fun x -> not (List.mem x files)) (List.tl argl) in Coq.check_connection args; Coqide.sup_args := args; |