From 87a6376dd1cc1abcf1e63e33b9835ad85d0f5921 Mon Sep 17 00:00:00 2001
From: Justin Bogner <mail@justinbogner.com>
Date: Sun, 8 Jun 2008 19:20:57 +0200
Subject: Make prompt keybindings work when numLock or capsLock are active

darcs-hash:20080608172057-18f27-f5b94a80e3571bb62a0d64372fb145e628191af0.gz
---
 XMonad/Prompt.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index c8664b4..951dc94 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -56,6 +56,7 @@ import Control.Monad.Reader
 import Control.Monad.State
 import Control.Applicative ((<$>))
 import Data.Char
+import Data.Bits ((.&.))
 import Data.Maybe
 import Data.List
 import Data.Set (fromList, toList)
@@ -309,7 +310,7 @@ data Direction = Prev | Next deriving (Eq,Show,Read)
 keyPressHandle :: KeyMask -> KeyStroke -> XP ()
 -- commands: ctrl + ... todo
 keyPressHandle mask (ks,_)
-    | mask == controlMask =
+    | (mask .&. controlMask) > 0 =
         -- control sequences
         case () of
           _ | ks == xK_u               -> killBefore    >> go
-- 
cgit v1.2.3