diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-31 09:19:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-31 09:19:21 (GMT) |
commit | ca9d6593d1aad7ccbc5c9c8985bbba18dd0fa4be (patch) | |
tree | 59e94c5c206dc93a5e6ba9c3fd901a94e9bf52fd /library/init.tcl | |
parent | bbb13bf5770d18267ef18b9fc47a0e198916725d (diff) | |
parent | 4a9ae53836f768d0b615e5f98cedfb9dd5fbac7f (diff) | |
download | tcl-ca9d6593d1aad7ccbc5c9c8985bbba18dd0fa4be.zip tcl-ca9d6593d1aad7ccbc5c9c8985bbba18dd0fa4be.tar.gz tcl-ca9d6593d1aad7ccbc5c9c8985bbba18dd0fa4be.tar.bz2 |
merge core-8-6-branch (except: the "timerate" command and the clock performance-tests are kept)
Diffstat (limited to 'library/init.tcl')
-rw-r--r-- | library/init.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/init.tcl b/library/init.tcl index fc88a72..dba73b0 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -159,7 +159,7 @@ if {[interp issafe]} { package unknown {::tcl::tm::UnknownHandler ::tclPkgUnknown} } else { # Default known auto_index (avoid loading auto index implicit after interp create): - + array set ::auto_index { ::tcl::tm::UnknownHandler {source [info library]/tm.tcl} ::tclPkgUnknown {source [info library]/package.tcl} @@ -433,7 +433,7 @@ proc auto_load {cmd {namespace {}}} { # workaround non canonical auto_index entries that might be around # from older auto_mkindex versions if {$cmd ni $nameList} {lappend nameList $cmd} - + # try to load (and create sub-cmd handler "_sub_load_cmd" for further usage): foreach name $nameList [set _sub_load_cmd { # via auto_index: @@ -463,7 +463,7 @@ proc auto_load {cmd {namespace {}}} { } } }] - + # load auto_index if possible: if {![info exists auto_path]} { return 0 |