From 3142a90983e09d7d66191c2f296267d73b5a087f Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 15 Dec 2012 21:42:20 +0400
Subject: [PATCH] Madness

---
 wsi.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wsi.ml b/wsi.ml
index c224c0b..9e31c68 100644
--- 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
 ;;
 
-- 
2.11.4.GIT