This commit is contained in:
2017-02-22 18:22:39 -08:00
4 changed files with 25 additions and 6 deletions

View File

@@ -601,8 +601,7 @@ myBringNextMaybe =
bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())]
bindBringAndRaise mask sym start query =
[ ((mask, sym),
alreadyFocused >>= ifL restoreThisClassOrMinimizeOtherClasses doRaiseNext)
[ ((mask, sym), doRaiseNext)
, ((mask .|. controlMask, sym), myBringNextMaybe start query)
, ((mask .|. shiftMask, sym), doRaiseNext)
]