Index: tclreadline.c ================================================================== --- tclreadline.c +++ tclreadline.c @@ -143,10 +143,14 @@ while (!line_complete) { Tcl_DoOneEvent (0); } Tcl_DeleteFileHandler (0); + + if (line_complete < 0) { + Tcl_Eval(interp, "exit"); + } status = history_expand (line, &expansion); if (status == 1) printf ("%s\n", expansion); else if (status == -1) @@ -212,11 +216,14 @@ rl_callback_read_char (); } void TclReadlineLineCompleteHandler (char *ptr) { - if (ptr && *ptr) { + if (!ptr) { + line_complete = -1; + rl_callback_handler_remove (); + } else if (*ptr) { line_complete = 1; rl_callback_handler_remove (); line = ptr; } } Index: tclreadline.n.in ================================================================== --- tclreadline.n.in +++ tclreadline.n.in @@ -1,10 +1,10 @@ .TH tclreadline n "@TCLREADLINE_VERSION@" "Johannes Zellner" .\" (C) 1999 by Johannes Zellner -.\" FILE: "/krispc6/home/joze/src/tclreadline/tclreadline.n.in" -.\" LAST MODIFICATION: "Mon May 10 13:25:22 1999 (joze)" +.\" FILE: "/diska/home/joze/src/tclreadline/tclreadline.n.in" +.\" LAST MODIFICATION: "Fri Aug 20 11:09:26 1999 (joze)" .\" (C) 1998, 1999 by Johannes Zellner, .\" $Id$ .\" --- .\" .\" tclreadline -- gnu readline for the tcl scripting language @@ -198,17 +198,23 @@ .SH AUTHOR Johannes Zellner, .br -.SH CONTRIBUTIONS -Christian Krone +.SH CONTRIBUTIONS, SUGGESTIONS AND PATCHES +Magnus Eriksson , +Les Johnson , +Harald Kirsch , +Christian Krone , +Larry W. Virden +.SH DEBIAN PACKAGE +David Engel , .SH HISTORY This version of \fBtclreadline\fP is still a development version. Pretty a lot of features and ideas are not implemented yet. The reason for this is the lack of time and manpower. So you are welcome to modify and contribute to the code. If you have suggestions, please let me know.