From 9e5d566a0e1c678142d3993692d4bf105e4f03cc Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 3 Oct 2012 06:42:25 +0400
Subject: [PATCH] Fix preloading in presentation-mode case

---
 main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 3e1a76d..3486f26 100644
--- a/main.ml
+++ b/main.ml
@@ -1585,7 +1585,7 @@ let preloadlayout visiblepages =
     | l :: _ -> getpagey l.pageno + l.pagey
   in
   let y = if y < conf.winh then 0 else y - conf.winh in
-  let h = state.y - y + conf.winh*3 in
+  let h = conf.winh*3 in
   let pages = layout y h in
   conf.presentation <- presentation;
   conf.interpagespace <- interpagespace;
-- 
2.11.4.GIT