From 17abd75b4e3c85a2d1f6c61e2ef75831fec22a00 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 22 Feb 2013 19:24:59 +0400
Subject: [PATCH] Nicer ctrl-1

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

diff --git a/main.ml b/main.ml
index 727447c..a14616a 100644
--- a/main.ml
+++ b/main.ml
@@ -5019,7 +5019,10 @@ let viewkeyboard key mask =
         | Csingle _ | Cmulti _ -> 1
         | Csplit (n, _) -> n
       in
-      let zoom = zoomforh state.winw state.winh state.scrollw cols in
+      let h = state.winh -
+        conf.interpagespace lsl (if conf.presentation then 1 else 0)
+      in
+      let zoom = zoomforh state.winw h state.scrollw cols in
       if zoom < 1.0
       then setzoom zoom
 
-- 
2.11.4.GIT