From af6735c786c8b28224f45bec14380886d8a761a1 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 19 May 2013 20:43:57 +0400
Subject: [PATCH] Don't paper over the issue

---
 main.ml | 3 ++-
 wsi.ml  | 4 ++--
 wsi.mli | 2 +-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/main.ml b/main.ml
index 038e45c..9668bf7 100644
--- a/main.ml
+++ b/main.ml
@@ -7444,7 +7444,8 @@ let () =
   reshape winw winh;
   opendoc state.path state.password;
   state.uioh <- uioh;
-  Wsi.syncmapwin ();
+  display ();
+  Wsi.mapwin ();
   Sys.set_signal Sys.sighup (Sys.Signal_handle (fun _ -> reload ()));
   let optrfd =
     ref (
diff --git a/wsi.ml b/wsi.ml
index c72e06e..3154ffc 100644
--- a/wsi.ml
+++ b/wsi.ml
@@ -670,9 +670,9 @@ let syncsendwithrep sock secstowait s f =
   readtillcompletion ();
 ;;
 
-let syncmapwin () =
+let mapwin () =
   let s = mapreq state.idbase in
-  syncsendwithrep state.sock 1.0 s (fun _ -> ());
+  sendstr s state.sock;
 ;;
 
 let syncsendintern sock secstowait s onlyifexists f =
diff --git a/wsi.mli b/wsi.mli
index dd10f09..bb00a7b 100644
--- a/wsi.mli
+++ b/wsi.mli
@@ -35,7 +35,7 @@ val init : t -> int -> int -> bool -> Unix.file_descr * int * int;;
 val fullscreen : unit -> unit;;
 val reshape : int -> int -> unit;;
 val activatewin : unit -> unit;;
-val syncmapwin : unit -> unit;;
+val mapwin : unit -> unit;;
 val withalt : int -> bool;;
 val withctrl : int -> bool;;
 val withshift : int -> bool;;
-- 
2.11.4.GIT