From ab6bf0e0ad085436c7651edf13e936489c8d1dbc Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 29 Jan 2012 19:16:38 +0400
Subject: [PATCH] Usability tweak

---
 main.ml | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index 3e4f8fc..fdd31cd 100644
--- a/main.ml
+++ b/main.ml
@@ -2600,9 +2600,17 @@ object (self)
             let next = m_active + incr in
             let next = bound next 0 (itemcount - 1) in
             let next = find next incr1 in
-            if next = -1 || abs (m_active - first) > fstate.maxrows
-            then m_active
-            else next
+            let active =
+              if next = -1 || abs (m_active - first) > fstate.maxrows
+              then (
+                let active = if m_active = -1 then next else m_active in
+                active
+              )
+              else next
+            in
+            if isvisible first active
+            then active
+            else -1
           in
           active, first
       in
-- 
2.11.4.GIT