From 0805c4527cce9c6ef5abca549f2a2800bacb892f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 24 Apr 2007 03:03:52 +0200
Subject: Clear numlock bit

darcs-hash:20070424010352-a5988-411c7bc6d019f772b412e230cfc19aa06041ca7c.gz
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 1c7eab1..aa541ce 100644
--- a/Main.hs
+++ b/Main.hs
@@ -128,7 +128,7 @@ handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code})
     | t == keyPress
     = withDisplay $ \dpy -> do
         s   <- io $ keycodeToKeysym dpy code 0
-        whenJust (M.lookup (m,s) keys) id
+        whenJust (M.lookup (complement numlockMask .&. m,s) keys) id
 
 -- manage a new window
 handle (MapRequestEvent    {ev_window = w}) = withDisplay $ \dpy -> do
-- 
cgit v1.2.3