FIX make ctl-g exit power prompt
This commit is contained in:
parent
c7d7a12ca1
commit
668d7e232f
|
@ -255,7 +255,7 @@ myPowerPrompt = mkXPrompt PowerPrompt theme comp executeAction
|
|||
comp = mkComplFunFromList []
|
||||
theme = T.promptTheme { promptKeymap = keymap }
|
||||
keymap = M.fromList
|
||||
$ ((0, xK_g), quit) :
|
||||
$ ((controlMask, xK_g), quit) :
|
||||
map (first $ (,) 0)
|
||||
[ (xK_p, sendAction "p")
|
||||
, (xK_s, sendAction "s")
|
||||
|
|
Loading…
Reference in New Issue