Add delete' for use in shift

Rename delete to delete' so we can clear floating status in delete,
thus removing one special handling.
At the moment delete' is only used in shift, but is useful for temporarily
removing a window from the stack.

darcs-hash:20070910113835-eb3a1-39397766e3c6b9428f69cd8c1bd316cdd20cedcb

1 files changed, 1 insertions, 5 deletions

diff --git a/Operations.hs b/Operations.hs
index 9d20841..d7f6639 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -66,15 +66,11 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
 -- | unmanage. A window no longer exists, remove it from the window
 -- list, on whatever workspace it is.
 --
--- FIXME: clearFloating should be taken care of in W.delete, but if we do it
--- there, floating status is lost when moving windows between workspaces,
--- because W.shift calls W.delete.
---
 -- should also unmap?
 --
 unmanage :: Window -> X ()
 unmanage w = do
-    windows (W.sink w . W.delete w)
+    windows (W.delete w)
     setWMState w 0 {-withdrawn-}
     modify (\s -> s {mapped = S.delete w (mapped s), waitingUnmap = M.delete w (waitingUnmap s)})