1 files changed, 1 insertions, 1 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 1ab75ec..165697f 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -166,7 +166,7 @@ eventLoop action = do
   d <- gets dpy
   (keysym,string,event) <- io $ 
             allocaXEvent $ \e -> do 
-              nextEvent d e
+              maskEvent d keyPressMask e
               ev <- getEvent e
               (ks,s) <- lookupString $ asKeyEvent e
               return (ks,s,ev)