diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-09-23 16:48:49 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-09-23 16:48:49 (GMT) |
commit | 9405cbb06073c00a05b3df62c7d934ffc7cb43df (patch) | |
tree | b7447552779bff5a13069516b87f365b3e014f03 /generic/tclUtf.c | |
parent | c5aa1beac17604869926c66c6857c24bb22d63ff (diff) | |
download | tcl-9405cbb06073c00a05b3df62c7d934ffc7cb43df.zip tcl-9405cbb06073c00a05b3df62c7d934ffc7cb43df.tar.gz tcl-9405cbb06073c00a05b3df62c7d934ffc7cb43df.tar.bz2 |
tip 318 update
FossilOrigin-Name: f09c1bc37736a61802bae0583d8e97c1376ca3fd
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); } |