diff options
| -rw-r--r-- | ide/coq.ml | 10 | ||||
| -rw-r--r-- | ide/coqide.ml | 3 |
2 files changed, 7 insertions, 6 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index 0b2e9b13e..227f1fb7e 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -95,14 +95,14 @@ let coqtop_path () = if Filename.check_suffix prog ".byte" then dir^"/coqtop.byte" else dir^"/coqtop.opt" -let filter_coq_opts argv = - let argstr = String.concat " " argv in +let filter_coq_opts args = + let argstr = String.concat " " (List.map Filename.quote args) in let oc,ic,ec = Unix.open_process_full (coqtop_path () ^" -filteropts "^argstr) (Unix.environment ()) in - let filtered_argv = read_all_lines oc in + let filtered_args = read_all_lines oc in let message = read_all_lines ec in match Unix.close_process_full (oc,ic,ec) with - | Unix.WEXITED 0 -> true,filtered_argv - | Unix.WEXITED 2 -> false,filtered_argv + | Unix.WEXITED 0 -> true,filtered_args + | Unix.WEXITED 2 -> false,filtered_args | _ -> false,message exception Coqtop_output of string list diff --git a/ide/coqide.ml b/ide/coqide.ml index 05f93863c..42680dffc 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -3096,7 +3096,8 @@ let process_argv argv = let start () = let argl = Array.to_list Sys.argv in let files = process_argv argl in - sup_args := String.concat " " (List.filter (fun x -> not (List.mem x files)) (List.tl argl)); + let args = List.filter (fun x -> not (List.mem x files)) (List.tl argl) in + sup_args := String.concat " " (List.map Filename.quote args); check_connection !sup_args; ignore_break (); GtkMain.Rc.add_default_file (lib_ide_file ".coqide-gtk2rc"); |