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