@@ -1,8 +1,8 @@ #!/usr/local/bin/tclsh -# FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineInit.tcl.in" -# LAST MODIFICATION: "Sat May 8 15:02:23 1999 (joze)" +# FILE: "/diska/home/joze/src/tclreadline/tclreadlineInit.tcl.in" +# LAST MODIFICATION: "Fri Aug 20 15:37:08 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl @@ -45,5 +45,9 @@ puts stderr $msg exit 2 } } +tclreadline::Init + +source [file join [file dirname [info script]] tclreadlineSetup.tcl] +