diff options
| author | dgp <dgp@noemail.net> | 2011-04-28 14:39:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-04-28 14:39:42 (GMT) |
| commit | ca63cde889bfbb8f70a3a8972374c20ba53112a1 (patch) | |
| tree | 0d25400a3f10a579b1905153391d01db6cb2a9d4 /generic/tclCmdMZ.c | |
| parent | 19bab0c06fc241664690b6b5106502ca5c994c3d (diff) | |
| download | tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.zip tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.tar.gz tcl-ca63cde889bfbb8f70a3a8972374c20ba53112a1.tar.bz2 | |
New utility routines: TclIsSpaceProc() and TclCountSpaceRuns()
Use to replace calls to isspace() and their /* INTL */ risk.
FossilOrigin-Name: b1063a174c441631e4ee06c6495579afc7358479
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 7c3855c..5390cf0 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1643,7 +1643,7 @@ StringIsCmd( * if it is the first "element" that has the failure. */ - while (isspace(UCHAR(*p))) { /* INTL: ? */ + while (TclIsSpaceProc(*p)) { p++; } TclNewStringObj(tmpStr, string1, p-string1); |