@@ -1,20 +1,16 @@
 
  /* ==================================================================
-
     FILE: "/home/joze/src/tclreadline/tclreadline.c"
-    LAST MODIFICATION: "Sat, 25 Mar 2000 21:40:27 +0100 (joze)"
+    LAST MODIFICATION: "Sat, 01 Jul 2000 23:47:30 +0200 (joze)"
     (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
     $Id$
     ---
-
     tclreadline -- gnu readline for tcl
     http://www.zellner.org/tclreadline/
     Copyright (c) 1998 - 2000, Johannes Zellner <johannes@zellner.org>
-
     This software is copyright under the BSD license.
-
     ================================================================== */  
 
 #ifdef HAVE_CONFIG_H
 #   include "config.h"
 #endif
@@ -30,11 +26,12 @@
 #else
 #   include <readline/readline.h>
 #   include <readline/history.h>
 #endif
 
-/**
+
+/*
  * this prototype is missing
  * in readline.h
  */
 void rl_extend_line_buffer(int len);
 
@@ -541,11 +538,11 @@
     if (TCL_OK != (status = Tcl_LinkVar(interp, "::tclreadline::historyLength",
 		(char*) &tclrl_history_length, TCL_LINK_INT)))
 	return status;
 
     if (TCL_OK != (status = Tcl_LinkVar(interp, "::tclreadline::library",
-		(char*) &TCLRL_LIBRARY, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
+		(char*) &tclrl_library, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
 	return status;
     if (TCL_OK != (status = Tcl_LinkVar(interp, "::tclreadline::version",
 		(char*) &TCLRL_VERSION, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
 	return status;
     if (TCL_OK != (status = Tcl_LinkVar(interp, "::tclreadline::patchLevel",
@@ -554,11 +551,11 @@
     if (TCL_OK != (status = Tcl_LinkVar(interp, "::tclreadline::license",
 		(char*) &tclrl_license, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
 	return status;
 
     if (TCL_OK != (status = Tcl_LinkVar(interp, "tclreadline_library",
-		(char*) &TCLRL_LIBRARY, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
+		(char*) &tclrl_library, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
 	return status;
     if (TCL_OK != (status = Tcl_LinkVar(interp, "tclreadline_version",
 		(char*) &TCLRL_VERSION, TCL_LINK_STRING | TCL_LINK_READ_ONLY)))
 	return status;
     if (TCL_OK != (status = Tcl_LinkVar(interp, "tclreadline_patchLevel",