diff options
-rw-r--r-- | ide/coq.mli | 2 | ||||
-rw-r--r-- | ide/coqide_main.ml4 | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/ide/coq.mli b/ide/coq.mli index 966c77700..492ba0148 100644 --- a/ide/coq.mli +++ b/ide/coq.mli @@ -171,3 +171,5 @@ val check_connection : string list -> unit (** Launch a coqtop with the user args in order to be sure that it works, checking in particular that Prelude.vo is found. This command may terminate coqide in case of trouble *) + +val interrupter : (int -> unit) ref diff --git a/ide/coqide_main.ml4 b/ide/coqide_main.ml4 index 1e9f0b9ab..aad70197e 100644 --- a/ide/coqide_main.ml4 +++ b/ide/coqide_main.ml4 @@ -90,6 +90,7 @@ external win32_interrupt : int -> unit = "win32_interrupt" let () = Coq.gio_channel_of_descr_socket := Glib.Io.channel_of_descr_socket; set_win32_path (); + Coq.interrupter := win32_interrupt; reroute_stdout_stderr () END |