From aa8275e4912f98b35874e70d5c1ddaf6ed25a5c7 Mon Sep 17 00:00:00 2001
From: Trevor Elliott <trevor@galois.com>
Date: Thu, 5 Jun 2008 22:06:56 +0000
Subject: [PATCH] Add C-w to XMonad.Prompt

 * Bind C-w to kill the previous word
---
 XMonad/Prompt.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index c9ae28dd..cbcf7a38 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -320,6 +320,7 @@ keyPressHandle mask (ks,_)
             | ks == xK_Left            -> moveWord Prev >> go
             | ks == xK_Delete          -> killWord Next >> go
             | ks == xK_BackSpace       -> killWord Prev >> go
+            | ks == xK_w               -> killWord Prev >> go
             | ks == xK_g || ks == xK_c -> quit
             | otherwise  -> eventLoop handle -- unhandled control sequence
     | ks == xK_Return    = historyPush       >> return ()