summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-25 13:16:21 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-25 13:16:21 (GMT)
commitca5848b9fa59cb04251c5ab99327e8572cdab06d (patch)
tree4c60bbdc84cc7b7d793ba6801e0c470bfe3cc76b /generic
parent9cf461e48a4c2c2f43280c36d5f95d43b4627923 (diff)
downloadtcl-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')
-rw-r--r--generic/tclUtf.c5
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);