From 230bd21ff845e84d83d86eeec2d2c9494a9b1cb8 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 7 Aug 2011 09:34:55 +0400
Subject: [PATCH] Fix pageup in bird's eye mode

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

diff --git a/main.ml b/main.ml
index 9ffce99..07f1849 100644
--- a/main.ml
+++ b/main.ml
@@ -1721,8 +1721,12 @@ let special ~key ~x ~y =
       | Glut.KEY_PAGE_UP ->
           begin match state.layout with
           | l :: _ ->
-              state.birdseyepageno <- max 0 (l.pageno - 1);
-              gotopage state.birdseyepageno 0.0
+              if l.pageno = state.birdseyepageno
+              then gotoy (clamp (-conf.winh))
+              else (
+                state.birdseyepageno <- max 0 (l.pageno - 1);
+                gotopage state.birdseyepageno 0.0
+              )
           | [] -> gotoy (clamp (-conf.winh))
           end;
       | Glut.KEY_PAGE_DOWN ->
-- 
2.11.4.GIT