From e28813c53e5fd3bd06e178e663ffbdf41ef15fc9 Mon Sep 17 00:00:00 2001 From: mjanssen Date: Thu, 2 May 2024 21:29:19 +0000 Subject: [unknown] only calls shell command in interactive tclsh sessions --- doc/unknown.n | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/unknown.n b/doc/unknown.n index ee8a5be..8ea1e8e 100644 --- a/doc/unknown.n +++ b/doc/unknown.n @@ -47,7 +47,7 @@ The default implementation of \fBunknown\fR behaves as follows. It first calls the \fBauto_load\fR library procedure to load the command. If this succeeds, then it executes the original command with its original arguments. -If the auto-load fails then \fBunknown\fR calls \fBauto_execok\fR +If the auto-load fails and Tcl is run interactively then \fBunknown\fR calls \fBauto_execok\fR to see if there is an executable file by the name \fIcmd\fR. If so, it invokes the Tcl \fBexec\fR command with \fIcmd\fR and all the \fIargs\fR as arguments. -- cgit v0.12 From d84701d4e13d14b480f469ca4a2579ecfc857d46 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Fri, 3 May 2024 16:23:22 +0000 Subject: Fix [a5f4a7aed8] - tcl::tm::path auto_index entry --- library/tclIndex | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/tclIndex b/library/tclIndex index 2d4a957..871298f 100644 --- a/library/tclIndex +++ b/library/tclIndex @@ -95,7 +95,7 @@ set auto_index(::safe::RejectExcessColons) [list ::tcl::Pkg::source [file join $ set auto_index(::safe::VarName) [list ::tcl::Pkg::source [file join $dir safe.tcl]] set auto_index(::safe::Setup) [list ::tcl::Pkg::source [file join $dir safe.tcl]] set auto_index(::safe::setSyncMode) [list ::tcl::Pkg::source [file join $dir safe.tcl]] -set auto_index(::tcl::tmpath) [list ::tcl::Pkg::source [file join $dir tm.tcl]] +set auto_index(::tcl::tm::path) [list ::tcl::Pkg::source [file join $dir tm.tcl]] set auto_index(::tcl::tm::add) [list ::tcl::Pkg::source [file join $dir tm.tcl]] set auto_index(::tcl::tm::remove) [list ::tcl::Pkg::source [file join $dir tm.tcl]] set auto_index(::tcl::tm::list) [list ::tcl::Pkg::source [file join $dir tm.tcl]] -- cgit v0.12 From 5b4a65fbeeca0f05cc2f2abe4c073a52a1691b2d Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 4 May 2024 18:53:14 +0000 Subject: Possible solution for [3c26dec71e]: TCLX_y_TM_PATH - unspecified behaviour - change with 90b1rc --- library/tm.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/tm.tcl b/library/tm.tcl index 96bfe03..08afd4d 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -97,7 +97,7 @@ proc ::tcl::tm::add {args} { set newpaths $paths foreach p $args { - if {$p in $newpaths} { + if {($p eq "") || ($p in $newpaths)} { # Ignore a path already on the list. continue } -- cgit v0.12