From: malc <av1474@comtv.ru>
Date: Fri, 22 Feb 2013 22:42:49 +0000 (+0400)
Subject: wthackery continues
X-Git-Tag: v15~29
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/0833442036e9a7a406891bddd9f33eb3a8bc0c02

wthackery continues

Reload in wtmode but without anchor would flicker without this.
---

diff --git a/main.ml b/main.ml
index a14616a..d33e26b 100644
--- a/main.ml
+++ b/main.ml
@@ -2080,12 +2080,14 @@ let represent () =
   ;
   if state.reprf == noreprf
   then (
-    match state.mode with
+    begin match state.mode with
     | Birdseye (_, _, pageno, _, _) ->
         let y, h = getpageyh pageno in
         let top = (state.winh - h) / 2 in
         gotoy (max 0 (y - top))
     | _ -> gotoanchor state.anchor
+    end;
+    state.wthack <- !wtmode && not (layoutready state.layout);
   )
   else (
     state.reprf ();