aboutsummaryrefslogtreecommitdiffhomepage
path: root/ide/coqide_main.ml4
diff options
context:
space:
mode:
authorGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2012-05-15 12:49:46 +0000
committerGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2012-05-15 12:49:46 +0000
commit68833747ac16f1be8285895c1eb7d412764c2eff (patch)
tree32897b5f5d2507815e2747c09325b87282680424 /ide/coqide_main.ml4
parent98e8b75b640c93abc63140ce1fc3dc445d775066 (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.ml42
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;