From a773578f36f99229c1e39d484156af5209962498 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Mon, 8 Sep 2008 13:01:29 +0200
Subject: Only start to show the completion window with more than one match

darcs-hash:20080908110129-23c07-80787359353a1d5fdf194db4c6417db5d16e5c57.gz
---
 XMonad/Prompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

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
-- 
cgit v1.2.3