From: malc <av1474@comtv.ru>
Date: Sat, 15 Dec 2012 17:42:20 +0000 (+0400)
Subject: Madness
X-Git-Tag: v14~82
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/3142a90983e09d7d66191c2f296267d73b5a087f

Madness
---

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
 ;;