From: malc <av1474@comtv.ru>
Date: Wed, 24 Oct 2012 21:58:52 +0000 (+0400)
Subject: Respect ghyll for g
X-Git-Tag: v14~113
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/9e1d91169b53f1fb4351b7bb079fd00d94dc086a

Respect ghyll for g

Also fuse g/home and G/end
---

diff --git a/main.ml b/main.ml
index bae9ea2..66a3b0a 100644
--- 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)