From 6d612a5fe90bbddcce9e256ab75e5cbbcd595755 Mon Sep 17 00:00:00 2001
From: Anders Engstrom <ankaan@gmail.com>
Date: Sun, 26 Apr 2009 19:10:02 +0200
Subject: submapDefault fix key leakage
Ignore-this: edb0a2a03b2ed2959cb7068ae601fa28
darcs-hash:20090426171002-8978f-4ceb1e72cf94d546dfad4470079d02625a00b812.gz
---
XMonad/Actions/Submap.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/XMonad/Actions/Submap.hs b/XMonad/Actions/Submap.hs
index 8e26721..469f97d 100644
--- a/XMonad/Actions/Submap.hs
+++ b/XMonad/Actions/Submap.hs
@@ -75,7 +75,7 @@ submapDefault def keys = do
then nextkey
else return (m, keysym)
- io $ ungrabKeyboard d currentTime
-
m' <- cleanMask m
maybe def id (M.lookup (m', s) keys)
+
+ io $ ungrabKeyboard d currentTime
--
cgit v1.2.3