From 11f24097b470122e2f3197bce3e6931701a68cc4 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Thu, 5 Jun 2008 11:29:08 +0000
Subject: complete word completion in the shell. works for commands, flags,
 options, abstract syntax identifiers and NL strings

---
 src-3.0/GF/System/UseReadline.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src-3.0/GF/System')

diff --git a/src-3.0/GF/System/UseReadline.hs b/src-3.0/GF/System/UseReadline.hs
index c4a8f9239..7a4999850 100644
--- a/src-3.0/GF/System/UseReadline.hs
+++ b/src-3.0/GF/System/UseReadline.hs
@@ -18,6 +18,8 @@ import System.Console.Readline
 
 fetchCommand :: String -> IO (String)
 fetchCommand s = do
+  setCompletionAppendCharacter Nothing
+  setBasicQuoteCharacters ""
   res <- readline s
   case res of
    Nothing -> return "q"
-- 
cgit v1.2.3