@@ -1,11 +1,9 @@ #!/usr/local/bin/tclsh -# -# FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in" -# LAST MODIFIED: "Sun Feb 28 15:28:36 1999 (joze)" -# (C) 1998, 1999 by Johannes Zellner -# Johannes.Zellner@physik.uni-karlsruhe.de +# FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineInit.tcl.in" +# LAST MODIFICATION: "Sat May 8 15:02:23 1999 (joze)" +# (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner @@ -22,12 +20,12 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # -# Johannes.Zellner@physik.uni-karlsruhe.de -# http://krisal.physik.uni-karlsruhe.de/~joze +# johannes@zellner.org +# http://www.zellner.org/tclreadline/ # # ================================================================== package provide tclreadline @TCLREADLINE_VERSION@ @@ -41,13 +39,11 @@ global tclreadline_library set tclreadline_version @TCLREADLINE_VERSION@ set tclreadline_library @TCLREADLINE_LIBRARY@ - catch {load @TERMCAP_LOAD_PATH@} - catch {load @READLINE_LOAD_PATH@} if [catch {load @TCLREADLINE_LIBRARY@/@TCLREADLINE_LIB_FILE@} msg] { puts stderr $msg exit 2 } }