From e3b9cd0fb78b71f517001dc61f7fe5340f2a702c Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 8 Aug 2011 15:10:56 +0400
Subject: [PATCH] Hopefuly last fix for bird's eye up/down navigation

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

diff --git a/main.ml b/main.ml
index 7b48091..920bc51 100644
--- a/main.ml
+++ b/main.ml
@@ -1797,7 +1797,10 @@ let birdseyespecial key x y (conf, leftx, pageno, hooverpageno) =
       let pageno = max 0 (pageno - 1) in
       let rec loop = function
         | [] -> gotopage1nonav pageno 0
-        | l :: _ when l.pageno = pageno -> Glut.postRedisplay ()
+        | l :: _ when l.pageno = pageno ->
+            if l.pagedispy >= 0 && l.pagey = 0
+            then Glut.postRedisplay ()
+            else gotopage1nonav pageno 0
         | _ :: rest -> loop rest
       in
       loop state.layout;
-- 
2.11.4.GIT