diff options
| -rw-r--r-- | XMonad/Layout/DecorationAddons.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/DecorationAddons.hs b/XMonad/Layout/DecorationAddons.hs index 798a289..9192e54 100644 --- a/XMonad/Layout/DecorationAddons.hs +++ b/XMonad/Layout/DecorationAddons.hs @@ -87,7 +87,7 @@ handleScreenCrossing w decoWin = withDisplay $ \d -> do ws <- gets windowset sc <- fromMaybe (W.current ws) <$> pointScreen (fi px) (fi py) maybeWksp <- screenWorkspace $ W.screen sc - let targetWksp = maybeWksp >>= \wksp -> + let targetWksp = maybeWksp >>= \wksp -> W.findTag w ws >>= \currentWksp -> if (currentWksp /= wksp) then Just wksp |