Respect ghyll for g
authormalc <av1474@comtv.ru>
Wed, 24 Oct 2012 21:58:52 +0000 (25 01:58 +0400)
committermalc <av1474@comtv.ru>
Wed, 24 Oct 2012 21:58:52 +0000 (25 01:58 +0400)
Also fuse g/home and G/end

main.ml

diff --git a/main.ml b/main.ml
index bae9ea2..66a3b0a 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -4950,12 +4950,6 @@ let viewkeyboard key mask =
           doreshape w h
       end
 
-  | 103 ->                              (* g *)
-      gotoy_and_clear_text 0
-
-  | 71 ->                               (* G *)
-      gotopage1 (state.pagecount - 1) 0
-
   | 112 | 78 ->                         (* p|N *)
       search state.searchpattern false
 
@@ -5204,9 +5198,9 @@ let viewkeyboard key mask =
       in
       gotoghyll y
 
-  | 0xff50 ->                           (* home *)
+  | 103 | 0xff50 ->                     (* g home *)
       gotoghyll 0
-  | 0xff57 ->                           (* end *)
+  | 71 | 0xff57 ->                      (* G end *)
       gotoghyll (clamp state.maxy)
   | 0xff53 when Wsi.withalt mask ->     (* right *)
       gotoghyll (getnav ~-1)