From 2c6fb9d3b29cd7c32dc791bdff93768ad36bceaa Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 2 Jul 2010 16:47:05 +0400
Subject: [PATCH] Move autoscroll from '-' 'a' to just 'a'

---
 main.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/main.ml b/main.ml
index d48d8f3..81e0c84 100644
--- a/main.ml
+++ b/main.ml
@@ -674,10 +674,6 @@ let optentry text key =
       conf.crophack <- not conf.crophack;
       TEdone ("crophack " ^ btos conf.crophack)
 
-  | 'a' ->
-      conf.autoscroll <- not conf.autoscroll;
-      TEdone ("autoscroll " ^ btos conf.autoscroll)
-
   | _ ->
       state.text <- Printf.sprintf "bad option %d `%c'" key c;
       TEstop
@@ -834,6 +830,9 @@ let viewkeyboard ~key ~x ~y =
           conf.scrollw <- if conf.scrollw > 0 then 0 else 5;
           reshape state.w state.h;
 
+      | 'a' ->
+          conf.autoscroll <- not conf.autoscroll
+
       | 'f' ->
           begin match state.fullscreen with
           | None ->
-- 
2.11.4.GIT