From 80df3b607f2caa82fd940b5d88c3980e8600dde9 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 20 Feb 2013 19:46:18 +0400
Subject: [PATCH] Fix switching to/from presnetation mode

---
 main.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/main.ml b/main.ml
index 4e4afca..c5bd265 100644
--- a/main.ml
+++ b/main.ml
@@ -4045,10 +4045,8 @@ let describe_location () =
 ;;
 
 let setpresentationmode v =
-  let (n, _, _) = getanchor () in
-  let _, h = getpageyh n in
-  let ips = if conf.presentation then calcips h else conf.interpagespace in
-  state.anchor <- (n, 0.0, float ips);
+  let n = page_of_y state.y in
+  state.anchor <- (n, 0.0, 1.0);
   conf.presentation <- v;
   if conf.presentation
   then (
-- 
2.11.4.GIT