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 | 84e92af6dc25e59e12d8f7ad4b12016464e030d2 (patch) | |
| tree | 5e08d97a2f01feab55697b7b4d4a050eb31e8452 | |
| parent | 6adf3b8c6c375d8b2ec61544abe1acf0a734e5c1 (diff) | |
| download | tcl-84e92af6dc25e59e12d8f7ad4b12016464e030d2.zip tcl-84e92af6dc25e59e12d8f7ad4b12016464e030d2.tar.gz tcl-84e92af6dc25e59e12d8f7ad4b12016464e030d2.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); |