From 4f554c88aa7ecc8ebeb8af1a11bf3a12d255c25b Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Thu, 26 Jun 2014 15:39:16 +0200
Subject: CoqIDE: on win32 the old interrputer code (SIGINT) is still needed

---
 ide/coq.mli         | 2 ++
 ide/coqide_main.ml4 | 1 +
 2 files changed, 3 insertions(+)

diff --git a/ide/coq.mli b/ide/coq.mli
index 966c77700e..492ba01488 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 1e9f0b9ab4..aad70197e0 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
 
-- 
cgit v1.2.3