Fix alt-left/right to match documentation
authormalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:30:23 +0000 (25 02:30 +0400)
committermalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:30:23 +0000 (25 02:30 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 0529c56..a13c19a 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -5201,10 +5201,11 @@ let viewkeyboard key mask =
       gotoghyll 0
   | 71 | 0xff57 ->                      (* G end *)
       gotoghyll (clamp state.maxy)
-  | 0xff53 when Wsi.withalt mask ->     (* right *)
-      gotoghyll (getnav ~-1)
-  | 0xff51 when Wsi.withalt mask ->     (* left *)
+
+  | 0xff53 when Wsi.withalt mask ->     (* alt-right *)
       gotoghyll (getnav 1)
+  | 0xff51 when Wsi.withalt mask ->     (* alt-left *)
+      gotoghyll (getnav ~-1)
 
   | 114 ->                              (* r *)
       state.anchor <- getanchor ();