summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
authorashok <ashok>2017-01-28 06:38:22 (GMT)
committerashok <ashok>2017-01-28 06:38:22 (GMT)
commit1c6496c269fc6be350eae56e9b2351ce6e7e6dac (patch)
treedf4064dc5209771cb2ffc6ccbc13f5070d6539ff /library/init.tcl
parent368a29cbf01f4aa930631726ce71aafe9c853f12 (diff)
downloadtcl-1c6496c269fc6be350eae56e9b2351ce6e7e6dac.zip
tcl-1c6496c269fc6be350eae56e9b2351ce6e7e6dac.tar.gz
tcl-1c6496c269fc6be350eae56e9b2351ce6e7e6dac.tar.bz2
Added assoc, ftype and move as auto_execok shell built-ins on Windows.
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 544ea77..5a9e87c 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -636,8 +636,9 @@ proc auto_execok name {
}
set auto_execs($name) ""
- set shellBuiltins [list cls copy date del dir echo erase md mkdir \
- mklink rd ren rename rmdir start time type ver vol]
+ set shellBuiltins [list assoc cls copy date del dir echo erase ftype \
+ md mkdir mklink move rd ren rename rmdir start \
+ time type ver vol]
if {[info exists env(PATHEXT)]} {
# Add an initial ; to have the {} extension check first.
set execExtensions [split ";$env(PATHEXT)" ";"]