diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 09:09:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 09:09:25 (GMT) |
| commit | b1517df3ff0aa3be2bb952a719ffbbc27d69e226 (patch) | |
| tree | 775035ad317d0c0fe0fb8cbf923362a7eef0f40a /tools/makeHeader.tcl | |
| parent | a2e1bdf3b541497d607533fa83d88daebca4737e (diff) | |
| download | tcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.zip tcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.tar.gz tcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.tar.bz2 | |
Simplify some \\u???? escape sequences to \\x??
Diffstat (limited to 'tools/makeHeader.tcl')
| -rw-r--r-- | tools/makeHeader.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl index dd2f199..c72219f 100644 --- a/tools/makeHeader.tcl +++ b/tools/makeHeader.tcl @@ -25,7 +25,7 @@ namespace eval makeHeader { } set XFORM {[format \\\\\\\\u%04x {*}[scan & %c]]} - subst [regsub -all {[^\u0020-\u007e]} [string map $MAP $str] $XFORM] + subst [regsub -all {[^\x20-\x7E]} [string map $MAP $str] $XFORM] } #################################################################### |