From a65a8b33eabd4a46252c89de105f1da576031813 Mon Sep 17 00:00:00 2001 From: malc Date: Wed, 20 Feb 2013 19:50:46 +0400 Subject: [PATCH] Account for insane interpage space --- main.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/main.ml b/main.ml index c5bd265..8f37768 100644 --- a/main.ml +++ b/main.ml @@ -4822,7 +4822,9 @@ let existsinrow pageno (columns, coverA, coverB) p = let nextpage () = match state.layout with - | [] -> () + | [] -> + let pageno = page_of_y state.y in + gotoghyll (getpagey (pageno+1)) | l :: rest -> match conf.columns with | Csingle _ -> @@ -4854,7 +4856,9 @@ let nextpage () = let prevpage () = match state.layout with - | [] -> () + | [] -> + let pageno = page_of_y state.y in + gotoghyll (getpagey (pageno-1)) | l :: _ -> match conf.columns with | Csingle _ -> -- 2.11.4.GIT