From b01675f9f4f2f64ab75fa775638036cb6e5f64b3 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 12 Jul 2013 22:06:32 +0400
Subject: [PATCH] I'm an idiot

Thanks to Alex Podolsky for noticing this sad fact.
---
 main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 4cdc7f4..ada2de2 100644
--- a/main.ml
+++ b/main.ml
@@ -3797,7 +3797,7 @@ object (self)
           G.postRedisplay "listview wheel";
           Some (coe {< m_first = first >})
       | n when (n = 6 || n = 7) && not down ->
-          let inc = m_first + (if n = 7 then -1 else 1) in
+          let inc = if n = 7 then -1 else 1 in
           G.postRedisplay "listview hwheel";
           Some (coe {< m_pan = m_pan + inc >})
       | _ ->
-- 
2.11.4.GIT