From f22c4624a3f048e9d9413a5b97bdf2b0f9065577 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 27 Jul 2009 01:23:02 +0000 Subject: [PATCH] Revert to old behavior where unmatched keys do not exit the eventloop for A.GridSelect --- XMonad/Actions/GridSelect.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 02d0ee05..b69671ef 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -32,7 +32,6 @@ module XMonad.Actions.GridSelect ( colorRangeFromClassName ) where import Data.Maybe -import Data.Traversable (traverse) import Data.Bits import Control.Applicative import Control.Monad.State @@ -194,8 +193,8 @@ handle (ks,_) (KeyEvent {ev_event_type = t, ev_state = m }) | t == keyPress && ks == xK_Return = do (TwoDState { td_curpos = pos, td_elementmap = elmap }) <- get return $ fmap (snd . snd) $ findInElementMap pos elmap - | t == keyPress = fmap join $ traverse diffAndRefresh . M.lookup (m,ks) - =<< gets (gs_navigate . td_gsconfig) + | t == keyPress = maybe eventLoop diffAndRefresh . M.lookup (m,ks) + =<< gets (gs_navigate . td_gsconfig) where diffAndRefresh diff = do state <- get let elmap = td_elementmap state