Respect ghyll
authormalc <av1474@comtv.ru>
Mon, 28 Jan 2013 07:18:57 +0000 (28 11:18 +0400)
committermalc <av1474@comtv.ru>
Mon, 28 Jan 2013 07:18:57 +0000 (28 11:18 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 9d32b9e..e3ae4ae 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -5094,7 +5094,7 @@ let viewkeyboard key mask =
       begin match state.layout with
       | [] -> ()
       | l :: _ ->
-          gotoy_and_clear_text (getpagey l.pageno)
+          gotoghyll (getpagey l.pageno)
       end
 
   | 32 ->                               (* space *)