From 206422b4c620c8e055c71001f73c45014223416b Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 23 Mar 2013 22:18:28 +0400
Subject: [PATCH] NaN avoidance

---
 main.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 3db5670..63a9a46 100644
--- a/main.ml
+++ b/main.ml
@@ -6205,7 +6205,11 @@ let uioh = object
 
   method scrollph =
     let maxy = state.maxy - (if conf.maxhfit then state.winh else 0) in
-    let p, h = scrollph state.y maxy in
+    let p, h =
+      if maxy = 0
+      then 0.0, float state.winh
+      else scrollph state.y maxy
+    in
     state.scrollw, p, h
 
   method scrollpw =
-- 
2.11.4.GIT