diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-07-29 09:29:16 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-07-29 09:29:16 (GMT) |
commit | 5f456c40e36f5904c3bc57126e765831874cac4c (patch) | |
tree | 5e08d97a2f01feab55697b7b4d4a050eb31e8452 /generic/tclUtf.c | |
parent | 8e71703c3dbd648906c95aaecf21e4488c7387bc (diff) | |
download | tcl-5f456c40e36f5904c3bc57126e765831874cac4c.zip tcl-5f456c40e36f5904c3bc57126e765831874cac4c.tar.gz tcl-5f456c40e36f5904c3bc57126e765831874cac4c.tar.bz2 |
Make sure that "string is space \u202f" will continue to return "1", even if in future Unicode this character (NARROW_NO_BREAK_SPACE) will cease to be a space. See: [http://www.unicode.org/review/pri249/]
FossilOrigin-Name: 334ab96e5ee173a0863d8d1e10d8f229ddf83511
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r-- | generic/tclUtf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index a038f8a..e5497a4 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1555,7 +1555,7 @@ Tcl_UniCharIsSpace( if (((Tcl_UniChar) ch) < ((Tcl_UniChar) 0x80)) { return TclIsSpaceProc((char) ch); - } else if ((Tcl_UniChar) ch == 0x180e) { + } else if ((Tcl_UniChar) ch == 0x180e || (Tcl_UniChar) ch == 0x202f) { return 1; } else { return ((SPACE_BITS >> GetCategory(ch)) & 1); |