diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-25 13:16:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-25 13:16:21 (GMT) |
| commit | ca5848b9fa59cb04251c5ab99327e8572cdab06d (patch) | |
| tree | 4c60bbdc84cc7b7d793ba6801e0c470bfe3cc76b /generic/tclUtf.c | |
| parent | 9cf461e48a4c2c2f43280c36d5f95d43b4627923 (diff) | |
| download | tcl-ca5848b9fa59cb04251c5ab99327e8572cdab06d.zip tcl-ca5848b9fa59cb04251c5ab99327e8572cdab06d.tar.gz tcl-ca5848b9fa59cb04251c5ab99327e8572cdab06d.tar.bz2 | |
For Unicode 6.3, mongolian vowel separator (U+180e) is nominated to change character class from Space to Control character.
Make sure that "string is space" will continue to return 1 for this character. See TIP #413.
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 4b5b37b..18a82f7 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1516,8 +1516,9 @@ Tcl_UniCharIsSpace( if (((Tcl_UniChar) ch) < ((Tcl_UniChar) 0x80)) { return isspace(UCHAR(ch)); /* INTL: ISO space */ - } else if ((Tcl_UniChar) ch == 0x0085 || (Tcl_UniChar) ch == 0x200b - || (Tcl_UniChar) ch == 0x2060 || (Tcl_UniChar) ch == 0xfeff) { + } else if ((Tcl_UniChar) ch == 0x0085 || (Tcl_UniChar) ch == 0x180e + || (Tcl_UniChar) ch == 0x200b || (Tcl_UniChar) ch == 0x2060 + || (Tcl_UniChar) ch == 0xfeff) { return 1; } else { return ((SPACE_BITS >> GetCategory(ch)) & 1); |