From ab8f7703e8f3821e119094d75f86ad0ee7a3f02e Mon Sep 17 00:00:00 2001
From: "quentin.moser" <quentin.moser@unifr.ch>
Date: Tue, 27 Jan 2009 19:41:45 +0100
Subject: XMonad.Prompt autocompletion fix
Ignore-this: 635cbf6420722a4edef1ae9c40b36e1b
darcs-hash:20090127184145-5ccef-5ab96edbaf04e3e41790ca9550d6bae47639422e.gz
---
XMonad/Prompt.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index b624ad8..1a0edb3 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -391,14 +391,16 @@ keyPressHandle mask (ks,_)
where
go = updateWindows >> eventLoop handle
quit = flushString >> setSuccess False -- quit and discard everything
- setSuccess b = modify $ \s -> s { successful = b }
-- insert a character
keyPressHandle _ (_,s)
| s == "" = eventLoop handle
| otherwise = do insertString (decodeInput s)
updateWindows
completed <- tryAutoComplete
- unless completed $ eventLoop handle
+ if completed then setSuccess True else eventLoop handle
+
+setSuccess :: Bool -> XP ()
+setSuccess b = modify $ \s -> s { successful = b }
-- KeyPress and State
--
cgit v1.2.3