From: malc <av1474@comtv.ru>
Date: Wed, 24 Oct 2012 22:30:23 +0000 (+0400)
Subject: Fix alt-left/right to match documentation
X-Git-Tag: v14~110
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/1e8ff48d406f556a96a707c7341eb33e83667825

Fix alt-left/right to match documentation
---

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 ();