diff options
| -rw-r--r-- | ide/coqide.ml | 1 | ||||
| -rw-r--r-- | ide/ideutils.mli | 2 | ||||
| -rw-r--r-- | ide/preferences.ml | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index bd06c0b07d..63e6c1178b 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -26,6 +26,7 @@ let (proof_view:GText.view option ref) = ref None let (_notebook:GPack.notebook option ref) = ref None let notebook () = out_some !_notebook +let run_command = System.run_command try_convert (* Tabs contain the name of the edited file and 2 status informations: Saved state + Focused proof buffer *) diff --git a/ide/ideutils.mli b/ide/ideutils.mli index ff6614dfb4..bb32b34b43 100644 --- a/ide/ideutils.mli +++ b/ide/ideutils.mli @@ -46,8 +46,6 @@ val stock_to_widget : ?size:Gtk.Tags.icon_size -> GtkStock.id -> GObj.widget open Format val print_list : (formatter -> 'a -> unit) -> formatter -> 'a list -> unit -val run_command : (string -> unit) -> string -> Unix.process_status*string - val prime : Glib.unichar val underscore : Glib.unichar diff --git a/ide/preferences.ml b/ide/preferences.ml index 3e4a335748..ae038ef66e 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -123,7 +123,7 @@ let (current:pref ref) = modifiers_valid = [`SHIFT; `CONTROL; `MOD1; `MOD4]; - cmd_browse = Options.browser_cmd_fmt + cmd_browse = Options.browser_cmd_fmt; cmd_editor = if Sys.os_type = "Win32" then "NOTEPAD ", "" |