diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-07-29 09:29:16 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-07-29 09:29:16 (GMT) |
| commit | 6b3764c6d14ee2225bd5839ebac9f61f3ee36ce4 (patch) | |
| tree | 5e08d97a2f01feab55697b7b4d4a050eb31e8452 /generic/tclUtf.c | |
| parent | 34710f264bddf896b9da6d4352717ba7fd9a64f1 (diff) | |
| download | tcl-6b3764c6d14ee2225bd5839ebac9f61f3ee36ce4.zip tcl-6b3764c6d14ee2225bd5839ebac9f61f3ee36ce4.tar.gz tcl-6b3764c6d14ee2225bd5839ebac9f61f3ee36ce4.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/]
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); |