@@ -1,10 +1,10 @@
 
  /* ==================================================================
 
     FILE: "/home/joze/src/tclreadline/tclreadline.c"
-    LAST MODIFICATION: "Sun Aug 22 21:26:05 1999 (joze)"
+    LAST MODIFICATION: "Tue Aug 24 03:11:24 1999 (joze)"
     (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     $Id$
     ---
 
     tclreadline -- gnu readline for tcl
@@ -323,19 +323,22 @@
 }
 
 char*
 TclReadlineInitialize(char* historyfile)
 {
-
     rl_readline_name = "tclreadline";
+    /* rl_special_prefixes = "${\""; */
     rl_special_prefixes = "${";
-    using_history();
     /**
      * default is " \t\n\"\\'`@$><=;|&{("
-     * removed "{(.
+     * removed "{("
+     * added "[]}"
      */
-    rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&";
+    rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&[]}";
+    /* rl_completer_quote_characters = "\""; */
+
+    using_history();
     if (!tclrl_eof_string)
         tclrl_eof_string = strdup("puts {}; exit");
 
     /*
      * try to read historyfile in home
@@ -381,15 +384,15 @@
         char* quoted_rl_line_buffer
             = TclReadlineQuote(rl_line_buffer, "$[]{}\"");
         /*
         fprintf (stderr, "(TclReadlineCompletion) rl_line_buffer = |%s|\n",
             rl_line_buffer);
+        fprintf (stderr, "(TclReadlineCompletion) quoted_rl_line_buffer = |%s|\n",
+            quoted_rl_line_buffer);
         fprintf (stderr, "(TclReadlineCompletion) text = |%s|\n", text);
         fprintf (stderr, "(TclReadlineCompletion) quoted_text = |%s|\n",
             quoted_text);
-        fprintf (stderr, "(TclReadlineCompletion) quoted_rl_line_buffer = |%s|\n",
-            quoted_rl_line_buffer);
         */
         sprintf(start_s, "%d", start);
         sprintf(end_s, "%d", end);
         Tcl_ResetResult(tclrl_interp); /* clear result space */
         tclrl_state = Tcl_VarEval(tclrl_interp, tclrl_custom_completer,