Refactor
authormalc <av1474@comtv.ru>
Mon, 21 Jan 2013 04:20:01 +0000 (21 08:20 +0400)
committermalc <av1474@comtv.ru>
Mon, 21 Jan 2013 04:20:01 +0000 (21 08:20 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 3f47746..2e75f6f 100644 (file)
--- 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 ();