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 | 69e5f99eb1c340c89d7a5931e6eeb27ee2f06bf2 (patch) | |
| tree | 775035ad317d0c0fe0fb8cbf923362a7eef0f40a /tools | |
| parent | ebc37bbb020e8b2e26f224cc945a578f8f051245 (diff) | |
| download | tcl-69e5f99eb1c340c89d7a5931e6eeb27ee2f06bf2.zip tcl-69e5f99eb1c340c89d7a5931e6eeb27ee2f06bf2.tar.gz tcl-69e5f99eb1c340c89d7a5931e6eeb27ee2f06bf2.tar.bz2 | |
Simplify some \\u???? escape sequences to \\x??
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/makeHeader.tcl | 2 | ||||
| -rw-r--r-- | tools/regexpTestLib.tcl | 2 | ||||
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 8 |
3 files changed, 6 insertions, 6 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] } #################################################################### diff --git a/tools/regexpTestLib.tcl b/tools/regexpTestLib.tcl index a94d90f..bdb7d90 100644 --- a/tools/regexpTestLib.tcl +++ b/tools/regexpTestLib.tcl @@ -192,7 +192,7 @@ proc convertTestLine {currentLine len lineNum srcLineNum} { # if and \r substitutions are made, do not wrap re, flags, # str, and result in braces - set noBraces [regsub -all {R} $currentLine {\\\u000D} currentLine] + set noBraces [regsub -all {R} $currentLine {\\\x0D} currentLine] regsub -all {T} $currentLine {\\t} currentLine regsub -all {V} $currentLine {\\v} currentLine if {[regexp {=} $flags] == 1} { diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index 94440d5..2d82bb1 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -130,8 +130,8 @@ proc htmlize-text {text {charmap {}}} { \" {"} \ {<} {<} \ {>} {>} \ - \u201c "“" \ - \u201d "”" + \u201C "“" \ + \u201D "”" return [string map $charmap $text] } @@ -1303,8 +1303,8 @@ proc make-manpage-section {outputDir sectionDescriptor} { global manual overall_title tcltkdesc verbose global excluded_pages forced_index_pages process_first_patterns - set LQ \u201c - set RQ \u201d + set LQ \u201C + set RQ \u201D lassign $sectionDescriptor \ manual(wing-glob) \ |