@@ -1,8 +1,8 @@
 #!/usr/local/bin/tclsh
-# FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
-# LAST MODIFICATION: "Sun Aug 29 08:11:24 1999 (joze)"
+# FILE: "/diska/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
+# LAST MODIFICATION: "Wed Sep  8 18:09:57 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -40,8 +40,11 @@
         exit 2
     }
 }
 
 tclreadline::Init
+::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter
 
 source [file join [file dirname [info script]] tclreadlineSetup.tcl]
 
+set auto_index(::tclreadline::ScriptCompleter) \
+[list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]]