diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-06-17 13:23:29 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-06-17 13:23:29 (GMT) |
| commit | dc6a0c669d3b00bc4177f0a7134b86c8a5c88a77 (patch) | |
| tree | 8fc39e68df09b49e0f94ad8866e2202da1168dfa /generic/tclUtf.c | |
| parent | 38e6b47cbdba0ffceedccb7e08b49cf674c43a8b (diff) | |
| download | tcl-dc6a0c669d3b00bc4177f0a7134b86c8a5c88a77.zip tcl-dc6a0c669d3b00bc4177f0a7134b86c8a5c88a77.tar.gz tcl-dc6a0c669d3b00bc4177f0a7134b86c8a5c88a77.tar.bz2 | |
Use more portable TclIsSpaceProc() in stead of isspace().
Make sure that "string is space \u180e" continues to return 1 for whatever unicode version.
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index f3d1758..a122685 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1554,7 +1554,9 @@ Tcl_UniCharIsSpace( */ if (((Tcl_UniChar) ch) < ((Tcl_UniChar) 0x80)) { - return isspace(UCHAR(ch)); /* INTL: ISO space */ + return TclIsSpaceProc(ch); + } else if ((Tcl_UniChar) ch == 0x180e) { + return 1; } else { return ((SPACE_BITS >> GetCategory(ch)) & 1); } |