diff options
| -rw-r--r-- | XMonad/Prompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 53c9024..e25bb1b 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -280,8 +280,8 @@ eventLoop action = do handle :: KeyStroke -> Event -> XP () handle k@(ks,_) e@(KeyEvent {ev_event_type = t}) | t == keyPress && ks == xK_Tab = do - modify $ \s -> s { showComplWin = True } c <- getCompletions + if length c > 1 then modify $ \s -> s { showComplWin = True } else return () completionHandle c k e handle ks (KeyEvent {ev_event_type = t, ev_state = m}) | t == keyPress = keyPressHandle m ks |