Whoops
authormalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:34:23 +0000 (25 02:34 +0400)
committermalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:34:23 +0000 (25 02:34 +0400)
main.ml

diff --git a/main.ml b/main.ml
index a13c19a..5638785 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -3578,7 +3578,7 @@ object (self)
         coe {< m_first = 0; m_active = 0 >}
 
     | 108 when ctrl ->                  (* ctrl-l *)
-        let first = m_active - (fstate.maxrows / 2) in
+        let first = max 0 (m_active - (fstate.maxrows / 2)) in
         G.postRedisplay "outline ctrl-l";
         coe {< m_first = first >}