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 []
|
comp = mkComplFunFromList []
|
||||||
theme = T.promptTheme { promptKeymap = keymap }
|
theme = T.promptTheme { promptKeymap = keymap }
|
||||||
keymap = M.fromList
|
keymap = M.fromList
|
||||||
$ ((0, xK_g), quit) :
|
$ ((controlMask, xK_g), quit) :
|
||||||
map (first $ (,) 0)
|
map (first $ (,) 0)
|
||||||
[ (xK_p, sendAction "p")
|
[ (xK_p, sendAction "p")
|
||||||
, (xK_s, sendAction "s")
|
, (xK_s, sendAction "s")
|
||||||
|
|
Loading…
Reference in New Issue