submapDefault fix key leakage

2025-08-13 03:05:57 -07:00 · 2009-04-26 17:10:02 +00:00
parent ea61ad0f47
commit 823ea115ae
1 changed files with 2 additions and 2 deletions
--- 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