From 6713e15c2f6f2859daa96f00c01bc639da219fdd Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 5 Feb 2008 21:20:27 +0100
Subject: make WindowNavigation work when windows are stacked.

darcs-hash:20080205202027-72aca-52df32eeb02ca8abacc78486be8a02e1ea4063b6.gz
---
 XMonad/Layout/WindowNavigation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Layout/WindowNavigation.hs')

diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index 443e2d5..1bc50d9 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -122,7 +122,7 @@ instance LayoutModifier WindowNavigation Window where
                                                      []        -> rscr
                pt   = case state of Just (NS ptold _) | ptold `inrect` r -> ptold
                                     _ -> center r
-               wrs' = filter ((/=w) . fst) wrs
+               wrs' = filter ((/=r) . snd) $ filter ((/=w) . fst) wrs
                wnavigable = nub $ concatMap
                             (\d -> truncHead $ sortby d $ filter (inr d pt . snd) wrs') [U,D,R,L]
                wnavigablec = nub $ concatMap
-- 
cgit v1.2.3