From 92091ec07127569dc66df5e7e9f41d6994e08ab8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 28 Apr 2005 05:31:53 +0000
Subject:         * library/init.tcl:     Corrected flaw in interactive command
         * tests/main.test:      auto-completion.  [Bug 1191409].

---
 ChangeLog        |  3 +++
 library/init.tcl |  4 ++--
 tests/main.test  | 18 +++++++++++++++++-
 3 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 343e2e1..681403a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-27  Don Porter  <dgp@users.sourceforge.net>
 
+	* library/init.tcl:	Corrected flaw in interactive command
+	* tests/main.test:	auto-completion.  [Bug 1191409].
+
 	TIP#183 IMPLEMENTATION	[Patch 577093]
 
 	* generic/tclIOUtil.c (TclGetOpenModeEx):	New routine.
diff --git a/library/init.tcl b/library/init.tcl
index 82540b5..ff845fc 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -3,7 +3,7 @@
 # Default system startup file for Tcl-based applications.  Defines
 # "unknown" procedure and auto-load facilities.
 #
-# RCS: @(#) $Id: init.tcl,v 1.73 2005/04/25 17:07:37 dgp Exp $
+# RCS: @(#) $Id: init.tcl,v 1.74 2005/04/28 05:32:01 dgp Exp $
 #
 # Copyright (c) 1991-1993 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -342,7 +342,7 @@ proc unknown args {
 	    }
 	}
 	if {[llength $cmds] == 1} {
-	    return [uplevel 1 [lreplace $args 0 0 $cmds]]
+	    return [uplevel 1 [lreplace $args 0 0 [lindex $cmds 0]]]
 	}
 	if {[llength $cmds]} {
 	    if {$name eq ""} {
diff --git a/tests/main.test b/tests/main.test
index 30de5ed..0500377 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -1,6 +1,6 @@
 # This file contains a collection of tests for generic/tclMain.c.
 #
-# RCS: @(#) $Id: main.test,v 1.15 2003/10/07 21:45:39 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.16 2005/04/28 05:32:02 dgp Exp $
 
 if {[catch {package require tcltest 2.0.2}]} {
     puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -906,6 +906,22 @@ namespace eval ::tcl::test::main {
 	file delete result
     } -result "1\n% "
 
+    test Tcl_Main-6.7 {
+	[unknown]: interactive auto-completion.
+    } -constraints {
+	exec
+    } -body {
+	exec [interpreter] << {
+		proc foo\{ x {}
+		set tcl_interactive 1
+		foo y} >& result
+	set f [open result]
+	read $f
+    } -cleanup {
+	close $f
+	file delete result
+    } -result "1\n% % "
+
     # Tests Tcl_Main-7.*: exiting
 
     test Tcl_Main-7.1 {
-- 
cgit v0.12