Use SIGHUP to reload current document
authormalc <av1474@comtv.ru>
Mon, 29 Oct 2012 12:18:20 +0000 (29 16:18 +0400)
committermalc <av1474@comtv.ru>
Mon, 29 Oct 2012 12:18:29 +0000 (29 16:18 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 4142b29..c7707f9 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -6960,6 +6960,9 @@ let () =
   opendoc state.path state.password;
   state.uioh <- uioh;
 
+  Sys.set_signal Sys.sighup
+    (Sys.Signal_handle (fun _ -> opendoc state.path state.password));
+
   let rec loop deadline =
     let r =
       match state.errfd with