diff options
| author | Norbert Zeh <nzeh@cs.dal.ca> | 2010-06-04 10:14:31 +0200 |
|---|---|---|
| committer | Norbert Zeh <nzeh@cs.dal.ca> | 2010-06-04 10:14:31 +0200 |
| commit | b5b8a337365c7e9560b3d57fcd0a0934023b11af (patch) | |
| tree | ee49f4ca6d5455a23b2ad8e0c1a37dcb0bd8e1c9 /XMonad/Actions/GroupNavigation.hs | |
| parent | e690b299a36f2a473b82c278d48d75736c649d0b (diff) | |
| download | XMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.tar.gz XMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.tar.xz XMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.zip | |
Fix bug in history maintenance of X.A.GroupNavigation
Ignore-this: 84a22797ec1b76a9b9805af3272911b0
When the focused window was closed without a new window receiving focus, the
closed window was not removed from the history database, making for example
"nextMatch History (return True)" misbehave. This patch fixes this.
darcs-hash:20100604081431-18a2b-d8416c45ccc86ac7e95e4cb49face9f13b242da7.gz
Diffstat (limited to 'XMonad/Actions/GroupNavigation.hs')
| -rw-r--r-- | XMonad/Actions/GroupNavigation.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/GroupNavigation.hs b/XMonad/Actions/GroupNavigation.hs index 306c0f2..37a4ec9 100644 --- a/XMonad/Actions/GroupNavigation.hs +++ b/XMonad/Actions/GroupNavigation.hs @@ -174,8 +174,8 @@ updateHistory :: HistoryDB -> X HistoryDB updateHistory (HistoryDB oldcur oldhist) = withWindowSet $ \ss -> do let newcur = currentWindow ss wins = Set.fromList $ SS.allWindows ss - newhist = flt (flip Set.member wins) oldhist - return $ HistoryDB newcur (del newcur $ ins oldcur newhist) + newhist = flt (flip Set.member wins) (ins oldcur oldhist) + return $ HistoryDB newcur (del newcur newhist) where ins x xs = maybe xs (<| xs) x del x xs = maybe xs (\x' -> flt (/= x') xs) x |