diff options
author | gwern0 <gwern0@gmail.com> | 2008-12-03 02:33:23 +0100 |
---|---|---|
committer | gwern0 <gwern0@gmail.com> | 2008-12-03 02:33:23 +0100 |
commit | b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8 (patch) | |
tree | f6c111b151772f99bf090d744acf9aa6942bf383 | |
parent | 04cd43d8c2cd0fe0b1631c91687a2050af84fe59 (diff) | |
download | XMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.tar.gz XMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.tar.xz XMonadContrib-b0fbbf55772dbe2be6d7e21ff1f2041ce06d73a8.zip |
XMonad.Prompt: swap up and down per bug #243
Ignore-this: 8ab0481a0da7a983f501ac2fec4a68e8
darcs-hash:20081203013323-f7719-2dc8e5f3d85d0a700628046a6c83af9872789135.gz
-rw-r--r-- | XMonad/Prompt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 62d554a..d2ddd53 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -379,10 +379,10 @@ keyPressHandle mask (ks,_) | ks == xK_Delete = deleteString Next >> go | ks == xK_Left = moveCursor Prev >> go | ks == xK_Right = moveCursor Next >> go - | ks == xK_Up = moveHistory W.focusUp' >> go - | ks == xK_Down = moveHistory W.focusDown' >> go | ks == xK_Home = startOfLine >> go | ks == xK_End = endOfLine >> go + | ks == xK_Down = moveHistory W.focusUp' >> go + | ks == xK_Up = moveHistory W.focusDown' >> go | ks == xK_Escape = quit where go = updateWindows >> eventLoop handle |