From 178a952f93e48b971bbd9767f1665c47ce5b0c2f Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Tue, 1 Feb 2000 19:26:07 +0000
Subject: * library/init.tcl: Applied patch from rfe 1734 regarding auto_load
 errors not setting error message and errorInfo properly.

---
 ChangeLog        | 23 +++++++++++++++++++++++
 library/init.tcl |  6 +++---
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fe8027a..d17b26b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-01  Eric Melski  <ericm@scriptics.com>
+
+	* library/init.tcl: Applied patch from rfe 1734 regarding
+	auto_load errors not setting error message and errorInfo properly.
+
 2000-02-01  Jeff Hobbs  <hobbs@scriptics.com>
 
 	* win/Makefile.in (install-*): reduced verbosity of install
@@ -9,6 +14,24 @@
 	* library/http2.1/http.tcl: The query data POSTed was newline
 	terminated when it shouldn't be altered [Bug: 4089]
 
+2000-01-31  Eric Melski  <ericm@scriptics.com>
+
+	* tests/package.test: 
+	* library/tclIndex: 
+	* library/package.tcl: Added ::package namespace and
+	::package::create function.
+
+	* library/init.tcl: Fixed problem with auto_load and determining
+	if commands were loaded.
+
+	* library/auto.tcl: "Fixed" issues with $ in files to be auto indexed.
+
+	* doc/Package.n: New man page for package::create function.
+
+	* doc/pkgMkIndex.n: Added additional information.
+
+	* doc/library.n: Added additional qualification regarding auto_mkindex.
+
 2000-01-28  Eric Melski  <ericm@scriptics.com>
 
 	* tests/pkg/magicchar2.tcl: 
diff --git a/library/init.tcl b/library/init.tcl
index ecc926f..0b3d546 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.38 2000/02/01 01:14:01 ericm Exp $
+# RCS: @(#) $Id: init.tcl,v 1.39 2000/02/01 19:26:08 ericm Exp $
 #
 # Copyright (c) 1991-1993 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -191,8 +191,8 @@ proc unknown args {
 	set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg]
 	unset unknown_pending($name);
 	if {$ret != 0} {
-	    return -code $ret -errorcode $errorCode \
-		"error while autoloading \"$name\": $msg"
+	    append errorInfo "\n    (autoloading \"$name\")"
+	    return -code $ret -errorcode $errorCode -errorinfo $errorInfo $msg
 	}
 	if {![array size unknown_pending]} {
 	    unset unknown_pending
-- 
cgit v0.12