twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix for issue 315

Browse Source
This commit is contained in:
Daniel Schoepe 2009-09-28 09:19:46 +00:00
parent 02eed22659
commit bc00f63b79
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt.hs
View File

@ -345,7 +345,7 @@ handle ks@(sym,_) e@(KeyEvent {ev_event_type = t, ev_state = m}) = do
when (length c > 1) $ modify (\s -> s { showComplWin = True }) when (length c > 1) $ modify (\s -> s { showComplWin = True })
if complKey == sym if complKey == sym
then completionHandle c ks e then completionHandle c ks e
else when (t == keyPress) $ cleanMask m >>= flip keyPressHandle ks else when (t == keyPress) $ keyPressHandle m ks
handle _ (ExposeEvent {ev_window = w}) = do handle _ (ExposeEvent {ev_window = w}) = do
st <- get st <- get
when (win st == w) updateWindows when (win st == w) updateWindows
@ -424,8 +424,9 @@ defaultXPKeymap = M.fromList $
] ]
keyPressHandle :: KeyMask -> KeyStroke -> XP () keyPressHandle :: KeyMask -> KeyStroke -> XP ()
keyPressHandle mask (ks,str) = do keyPressHandle m (ks,str) = do
km <- gets (promptKeymap . config) km <- gets (promptKeymap . config)
mask <- cleanMask m
case M.lookup (mask,ks) km of case M.lookup (mask,ks) km of
Just action -> action >> updateWindows Just action -> action >> updateWindows
Nothing -> case str of Nothing -> case str of