diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-28 14:46:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-28 14:46:50 (GMT) |
| commit | 098ad4c7f366182cff4a6e63e5b6ee4283ed6b5d (patch) | |
| tree | 5a6c61eba61367946efeef0e7c775c1be57c1e9b /library/auto.tcl | |
| parent | 52cf0e0a28737d7f04d2485d39fd089a5d5b5643 (diff) | |
| download | tcl-098ad4c7f366182cff4a6e63e5b6ee4283ed6b5d.zip tcl-098ad4c7f366182cff4a6e63e5b6ee4283ed6b5d.tar.gz tcl-098ad4c7f366182cff4a6e63e5b6ee4283ed6b5d.tar.bz2 | |
TIP #587 follow-up: Looks like -encoding utf-8 still was missing in some places, only visible on Windows
Diffstat (limited to 'library/auto.tcl')
| -rw-r--r-- | library/auto.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index 7c9f38c..2eacf8c 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -265,7 +265,7 @@ proc auto_mkindex {dir args} { auto_mkindex_parser::cleanup set fid [open "tclIndex" w] - fconfigure $fid -translation lf + fconfigure $fid -encoding utf-8 -translation lf puts -nonewline $fid $index close $fid cd $oldDir @@ -292,7 +292,7 @@ proc auto_mkindex_old {dir args} { set f "" set error [catch { set f [open $file] - fconfigure $f -eofchar \032 + fconfigure $f -encoding utf-8 -eofchar \032 while {[gets $f line] >= 0} { if {[regexp {^proc[ ]+([^ ]*)} $line match procName]} { set procName [lindex [auto_qualify $procName "::"] 0] @@ -311,7 +311,7 @@ proc auto_mkindex_old {dir args} { set f "" set error [catch { set f [open tclIndex w] - fconfigure $f -translation lf + fconfigure $f -encoding utf-8 -translation lf puts -nonewline $f $index close $f cd $oldDir @@ -404,7 +404,7 @@ proc auto_mkindex_parser::mkindex {file} { set scriptFile $file set fid [open $file] - fconfigure $fid -eofchar \032 + fconfigure $fid -encoding utf-8 -eofchar \032 set contents [read $fid] close $fid |