diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-09-23 16:48:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-09-23 16:48:49 (GMT) |
| commit | c0c57878754090d7e406bf6944d8f210c851396f (patch) | |
| tree | b7447552779bff5a13069516b87f365b3e014f03 /generic/tclUtf.c | |
| parent | 3d73169d61cf9b795515d4c8a325ec0fa886bea8 (diff) | |
| download | tcl-c0c57878754090d7e406bf6944d8f210c851396f.zip tcl-c0c57878754090d7e406bf6944d8f210c851396f.tar.gz tcl-c0c57878754090d7e406bf6944d8f210c851396f.tar.bz2 | |
tip 318 update
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index f0d08e7..d2bcc4c 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1516,6 +1516,10 @@ Tcl_UniCharIsSpace( if (((Tcl_UniChar) ch) < ((Tcl_UniChar) 0x80)) { return isspace(UCHAR(ch)); /* INTL: ISO space */ + } else if ((Tcl_UniChar) ch == 0x0082 || (Tcl_UniChar) ch == 0x0083 + || (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); } |