diff options
| -rw-r--r-- | XMonad/Actions/CopyWindow.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Actions/CopyWindow.hs b/XMonad/Actions/CopyWindow.hs index 49fa30c..191c17f 100644 --- a/XMonad/Actions/CopyWindow.hs +++ b/XMonad/Actions/CopyWindow.hs @@ -145,7 +145,9 @@ killAllOtherCopies = do ss <- gets windowset delFromAllButCurrent w ss = foldr ($) ss $ map (delWinFromWorkspace w . W.tag) $ W.hidden ss ++ map W.workspace (W.visible ss) - delWinFromWorkspace w wid = W.modify Nothing (W.filter (/= w)) . W.view wid + delWinFromWorkspace w wid = viewing wid $ W.modify Nothing (W.filter (/= w)) + + viewing wis f ss = W.view (W.currentTag ss) $ f $ W.view wis ss -- | A list of hidden workspaces containing a copy of the focused window. wsContainingCopies :: X [WorkspaceId] |