Madness
authormalc <av1474@comtv.ru>
Sat, 15 Dec 2012 17:42:20 +0000 (15 21:42 +0400)
committermalc <av1474@comtv.ru>
Sat, 15 Dec 2012 17:42:20 +0000 (15 21:42 +0400)
wsi.ml

diff --git a/wsi.ml b/wsi.ml
index c224c0b..9e31c68 100644 (file)
--- a/wsi.ml
+++ b/wsi.ml
@@ -386,8 +386,8 @@ let getkeysym code mask =
   in
   let index = (1 lsl msh) + shinc in
   let keysym = state.keymap.(code-state.mink).(index) in
-  if index = 1 && keysym = 0
-  then state.keymap.(code-state.mink).(0)
+  if shinc = 1 && keysym = 0
+  then state.keymap.(code-state.mink).(index - 1)
   else keysym
 ;;