From 3e98a92b8294fcead841795fc43201423eb3af9f Mon Sep 17 00:00:00 2001
From: "sean.escriva" <sean.escriva@gmail.com>
Date: Thu, 9 Apr 2009 18:26:09 +0200
Subject: Prompt.hs: setSuccess True also on Keypad Enter

Ignore-this: cf04f87c546f89bd32a94de3a2a93b22

darcs-hash:20090409162609-29414-71dc93f7918450168f648cfe384185361faa9768.gz
---
 XMonad/Prompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 1a0edb3..c91fe64 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -378,7 +378,7 @@ keyPressHandle mask (ks,_)
             | ks == xK_w               -> killWord Prev >> go
             | ks == xK_g || ks == xK_c -> quit
             | otherwise  -> eventLoop handle -- unhandled control sequence
-    | ks == xK_Return    = setSuccess True
+    | ks == xK_Return || ks == xK_KP_Enter    = setSuccess True
     | ks == xK_BackSpace = deleteString Prev >> go
     | ks == xK_Delete    = deleteString Next >> go
     | ks == xK_Left      = moveCursor   Prev >> go
-- 
cgit v1.2.3