diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:21:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:21:07 (GMT) |
| commit | e42885732ad095ddf86399ce646a1c0348b38d37 (patch) | |
| tree | e6ba5dc1c3c33fcefba7691de71e4dffe94c1574 /tools/loadICU.tcl | |
| parent | ac45c8d85147e6927979c08d95567504148b74cd (diff) | |
| parent | 1a94f57ab672e62630b18fc4daa9a5a9c253bc6b (diff) | |
| download | tcl-e42885732ad095ddf86399ce646a1c0348b38d37.zip tcl-e42885732ad095ddf86399ce646a1c0348b38d37.tar.gz tcl-e42885732ad095ddf86399ce646a1c0348b38d37.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'tools/loadICU.tcl')
| -rwxr-xr-x | tools/loadICU.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/loadICU.tcl b/tools/loadICU.tcl index 021ced3..506b6e4 100755 --- a/tools/loadICU.tcl +++ b/tools/loadICU.tcl @@ -588,7 +588,7 @@ proc backslashify { string } { set retval {} foreach char [split $string {}] { scan $char %c ccode - if { $ccode >= 0x0020 && $ccode < 0x007F && $char ne "\"" + if { $ccode >= 0x20 && $ccode < 0x7F && $char ne "\"" && $char ne "\{" && $char ne "\}" && $char ne "\[" && $char ne "\]" && $char ne "\\" && $char ne "\$" } { append retval $char |