submapDefault fix key leakage

This commit is contained in:
Anders Engstrom
2009-04-26 17:10:02 +00:00
parent ea61ad0f47
commit 823ea115ae

View File

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