diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-07-07 17:15:52 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-07-07 21:19:03 +1000 |
commit | a9abe53c6e9fce27248126b6475467b26493150e (patch) | |
tree | ef73e5a0fa31ac1e02fa7f40b0ec402d27759569 | |
parent | 4a9f215245b8d0e8ed1e8c21e20f8694d3dd6463 (diff) | |
download | jimtcl-a9abe53c6e9fce27248126b6475467b26493150e.zip jimtcl-a9abe53c6e9fce27248126b6475467b26493150e.tar.gz jimtcl-a9abe53c6e9fce27248126b6475467b26493150e.tar.bz2 |
Support and ignore fconfigure -translation ...
Jim is always in binary/utf-8 mode
This makes it easier to run Tcl scripts unmodified
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tclcompat.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 8fbf475..430af80 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -45,6 +45,9 @@ if {[info commands stdout] ne ""} { -bu* { $f buffering $v } + -tr* { + # Just ignore -translation + } default { return -code error "fconfigure: unknown option $n" } |