From 1e8ff48d406f556a96a707c7341eb33e83667825 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 25 Oct 2012 02:30:23 +0400
Subject: [PATCH] Fix alt-left/right to match documentation

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

diff --git a/main.ml b/main.ml
index 0529c56..a13c19a 100644
--- 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 ();
-- 
2.11.4.GIT