From: malc <av1474@comtv.ru>
Date: Mon, 29 Oct 2012 12:18:20 +0000 (+0400)
Subject: Use SIGHUP to reload current document
X-Git-Tag: v14~104
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/8e89dee0521d48444e56da8fd2c62dfc17f0f3c6

Use SIGHUP to reload current document
---

diff --git a/main.ml b/main.ml
index 4142b29..c7707f9 100644
--- 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