From 9ac59e5619dbbf814303d9cda2ca6b9e530679f8 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Tue, 27 Mar 2012 16:44:49 +0400
Subject: [PATCH] Try mode specific keymap first

---
 main.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index 9f6ac10..fee6958 100644
--- a/main.ml
+++ b/main.ml
@@ -6719,10 +6719,10 @@ let () =
           let km = k, mascm in
           begin
             match
-              try Hashtbl.find globalkeyhash km
+              let modehash = state.uioh#modehash in
+              try Hashtbl.find modehash km
               with Not_found ->
-                let modehash = state.uioh#modehash in
-                try Hashtbl.find modehash km
+                try Hashtbl.find globalkeyhash km
                 with Not_found -> KMinsrt (k, m)
             with
             | KMinsrt (k, m) -> keyboard k m
-- 
2.11.4.GIT