From 0966a579bdb0cb3e57425c3adc5c7b975c07c73e Mon Sep 17 00:00:00 2001 From: malc Date: Fri, 29 Jul 2011 23:30:51 +0400 Subject: [PATCH] Fix calcheight for non presentation case --- main.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.ml b/main.ml index 4e74744..4123eba 100644 --- a/main.ml +++ b/main.ml @@ -299,7 +299,7 @@ let calcheight () = max 0 fh in let fh = f 0 0 0 state.pages in - fh + (if conf.presentation then conf.interpagespace else 0); + fh + (if conf.presentation then conf.interpagespace else -conf.interpagespace); ;; let getpageyh pageno = -- 2.11.4.GIT