Check-in [229374ad98]
Not logged in
Overview
SHA1:229374ad98604242b7b58eaf1fc60329d74cb540
Date: 2000-07-19 22:33:56
User: johannes@zellner.org
Comment:Thu Jul 20 00:29:39 CEST 2000
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2000-07-20
01:28
[062447ce86] corrected the old @..@ substitutes in tclreadilne.n.in (user: johannes@zellner.org, tags: trunk)
2000-07-19
22:33
[229374ad98] Thu Jul 20 00:29:39 CEST 2000 (user: johannes@zellner.org, tags: trunk)
2000-07-03
12:51
[feba0a4c97] * Makefile.am: included EXTRA_DIST so that it compiles from `dist' (user: johannes@zellner.org, tags: trunk)
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tclreadline.c from [9af4c77029] to [75b74b5625].

     1      1   
     2      2    /* ==================================================================
     3      3       FILE: "/home/joze/src/tclreadline/tclreadline.c"
     4         -    LAST MODIFICATION: "Sat, 01 Jul 2000 23:47:30 +0200 (joze)"
            4  +    LAST MODIFICATION: "Sat, 08 Jul 2000 21:25:15 +0200 (joze)"
     5      5       (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
     6      6       $Id$
     7      7       ---
     8      8       tclreadline -- gnu readline for tcl
     9      9       http://www.zellner.org/tclreadline/
    10     10       Copyright (c) 1998 - 2000, Johannes Zellner <johannes@zellner.org>
    11     11       This software is copyright under the BSD license.
................................................................................
   661    661       if (tclrl_custom_completer) {
   662    662   	char start_s[BUFSIZ], end_s[BUFSIZ];
   663    663   	Tcl_Obj* obj;
   664    664   	Tcl_Obj** objv;
   665    665   	int objc;
   666    666   	int state;
   667    667   	char* quoted_text = TclReadlineQuote(text, "$[]{}\"");
   668         -	char* quoted_rl_line_buffer
   669         -	= TclReadlineQuote(rl_line_buffer, "$[]{}\"");
          668  +	char* quoted_rl_line_buffer = TclReadlineQuote(rl_line_buffer, "$[]{}\"");
   670    669   	sprintf(start_s, "%d", start);
   671    670   	sprintf(end_s, "%d", end);
   672    671   	Tcl_ResetResult(tclrl_interp); /* clear result space */
   673    672   	state = Tcl_VarEval(tclrl_interp, tclrl_custom_completer,
   674    673   	    " \"", quoted_text, "\" ", start_s, " ", end_s,
   675    674   	    " \"", quoted_rl_line_buffer, "\"", (char*) NULL);
   676    675   	FREE(quoted_text);