diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-05 14:42:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-05 14:42:50 (GMT) |
| commit | 18dbdc3e40e19a7266c19924537e6914840adbe5 (patch) | |
| tree | 700d77c8a89fe5fd93e3b1d7fd56c96d41d7a194 /generic/tclUtf.c | |
| parent | a573f6dc86fd4e5c16c4e9d7167d12f50208374b (diff) | |
| parent | 8ceba044853804c9710cd28a34999bde36368db9 (diff) | |
| download | tcl-18dbdc3e40e19a7266c19924537e6914840adbe5.zip tcl-18dbdc3e40e19a7266c19924537e6914840adbe5.tar.gz tcl-18dbdc3e40e19a7266c19924537e6914840adbe5.tar.bz2 | |
TIP #413
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index f0d08e7..4b5b37b 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1516,6 +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) { + return 1; } else { return ((SPACE_BITS >> GetCategory(ch)) & 1); } |