diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 12:49:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 12:49:41 (GMT) |
commit | 4f3c0fa94fcc4ce830c4765499a42261934c48e7 (patch) | |
tree | 57c7b12ae94e928d50c4020a961b23e9ac0cfed2 /tools/loadICU.tcl | |
parent | 36d1b8447caf0aba9a4adf65b13029f35f89c0d9 (diff) | |
download | tcl-4f3c0fa94fcc4ce830c4765499a42261934c48e7.zip tcl-4f3c0fa94fcc4ce830c4765499a42261934c48e7.tar.gz tcl-4f3c0fa94fcc4ce830c4765499a42261934c48e7.tar.bz2 |
Use more uppercase hex (e.g. 0xFF) in stead of lowercase (0xff) consistantly.
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 5b09e2c..1cdd12f 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 >= 0x0020 && $ccode < 0x007F && $char ne "\"" && $char ne "\{" && $char ne "\}" && $char ne "\[" && $char ne "\]" && $char ne "\\" && $char ne "\$" } { append retval $char |