From: malc <av1474@comtv.ru>
Date: Mon, 21 Jan 2013 04:20:01 +0000 (+0400)
Subject: Refactor
X-Git-Tag: v14~53
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/6f2fdf33b26a1435829c4e2174ab5a4af1179716

Refactor
---

diff --git a/main.ml b/main.ml
index 3f47746..2e75f6f 100644
--- a/main.ml
+++ b/main.ml
@@ -5683,7 +5683,7 @@ let display () =
   end;
   enttext ();
   scrollindicator ();
-  if not state.wthack then Wsi.swapb ();
+  Wsi.swapb ();
 ;;
 
 let zoomrect x y x1 y1 =
@@ -7094,7 +7094,7 @@ let () =
       | None -> [state.sr; state.wsfd]
       | Some fd -> [state.sr; state.wsfd; fd]
     in
-    if state.redisplay
+    if state.redisplay && not state.wthack
     then (
       state.redisplay <- false;
       display ();