diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2008-09-08 13:01:29 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2008-09-08 13:01:29 +0200 |
| commit | a773578f36f99229c1e39d484156af5209962498 (patch) | |
| tree | d25b7c3825f34b939b54785bbf39b085937728de /XMonad/Prompt.hs | |
| parent | 1cd0ebdaca3088943f844b31f31f54ea8788aff5 (diff) | |
| download | XMonadContrib-a773578f36f99229c1e39d484156af5209962498.tar.gz XMonadContrib-a773578f36f99229c1e39d484156af5209962498.tar.xz XMonadContrib-a773578f36f99229c1e39d484156af5209962498.zip | |
Only start to show the completion window with more than one match
darcs-hash:20080908110129-23c07-80787359353a1d5fdf194db4c6417db5d16e5c57.gz
Diffstat (limited to 'XMonad/Prompt.hs')
| -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 |