From 8752bdd01afda74956e2c3b814b4c3d64acc93c0 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 4 May 2024 16:12:42 +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 82dcefc..408ebc1 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 3c22b99c8b39c0758ecf89bf7369191103582a7a Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 4 May 2024 16:17:32 +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 9784265..88a7bc0 100644 --- a/library/tclIndex +++ b/library/tclIndex @@ -67,7 +67,7 @@ set auto_index(::safe::AliasExeName) [list source -encoding utf-8 [file join $di set auto_index(::safe::RejectExcessColons) [list source -encoding utf-8 [file join $dir safe.tcl]] set auto_index(::safe::VarName) [list source -encoding utf-8 [file join $dir safe.tcl]] set auto_index(::safe::Setup) [list source -encoding utf-8 [file join $dir safe.tcl]] -set auto_index(::tcl::tmpath) [list source -encoding utf-8 [file join $dir tm.tcl]] +set auto_index(::tcl::tm::path) [list source -encoding utf-8 [file join $dir tm.tcl]] set auto_index(::tcl::tm::add) [list source -encoding utf-8 [file join $dir tm.tcl]] set auto_index(::tcl::tm::remove) [list source -encoding utf-8 [file join $dir tm.tcl]] set auto_index(::tcl::tm::list) [list source -encoding utf-8 [file join $dir tm.tcl]] -- cgit v0.12 From 9788573839698900297978ac52c242cf1403fd4e 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