diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-02-25 13:16:21 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-02-25 13:16:21 (GMT) |
| commit | 971bfcaadf4e78d8cca1e2037c120953ec455d77 (patch) | |
| tree | 4c60bbdc84cc7b7d793ba6801e0c470bfe3cc76b | |
| parent | 97295a2f821562dc1ce4770f4c32ae5aeb3cb2ff (diff) | |
| download | tcl-971bfcaadf4e78d8cca1e2037c120953ec455d77.zip tcl-971bfcaadf4e78d8cca1e2037c120953ec455d77.tar.gz tcl-971bfcaadf4e78d8cca1e2037c120953ec455d77.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.
| -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); |