diff options
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/library/init.tcl b/library/init.tcl index 188cb3d..d2d1fa9 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -371,17 +371,14 @@ proc unknown args { return -options $::tcl::UnknownOptions $::tcl::UnknownResult } - set ret [catch [list uplevel 1 [list info commands $name*]] msg] - if {$ret == 0} { - set candidates $msg - } + set ret [catch [list uplevel 1 [list info commands $name*]] candidates] if {$name eq "::"} { set name "" } if {$ret != 0} { dict append opts -errorinfo \ "\n (expanding command prefix \"$name\" in unknown)" - return -options $opts $msg + return -options $opts $candidates } # Filter out bogus matches when $name contained # a glob-special char [Bug 946952] |