diff options
| author | Anders Engstrom <ankaan@gmail.com> | 2009-04-26 19:10:02 +0200 |
|---|---|---|
| committer | Anders Engstrom <ankaan@gmail.com> | 2009-04-26 19:10:02 +0200 |
| commit | 6d612a5fe90bbddcce9e256ab75e5cbbcd595755 (patch) | |
| tree | de8ac638f03f1537828cc0d96bd9df6d72f75a63 /XMonad | |
| parent | c66dbc43fff23c8606a5a531f6530dd7ff9e4661 (diff) | |
| download | XMonadContrib-6d612a5fe90bbddcce9e256ab75e5cbbcd595755.tar.gz XMonadContrib-6d612a5fe90bbddcce9e256ab75e5cbbcd595755.tar.xz XMonadContrib-6d612a5fe90bbddcce9e256ab75e5cbbcd595755.zip | |
submapDefault fix key leakage
Ignore-this: edb0a2a03b2ed2959cb7068ae601fa28
darcs-hash:20090426171002-8978f-4ceb1e72cf94d546dfad4470079d02625a00b812.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Actions/Submap.hs | 4 |
1 files 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 |