diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-28 14:44:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-28 14:44:47 (GMT) |
| commit | 2df55486c49d238b2f888339b84efa9766b4d94a (patch) | |
| tree | c826199d351b0c6f0746a66124227d102686a420 /generic/tclCmdMZ.c | |
| parent | 2435833802cb8f2de9590380a2aa3e200c9840ab (diff) | |
| parent | 311dd13184c02f63bc2e2a474f28bfbb7d31ef0a (diff) | |
| download | tcl-2df55486c49d238b2f888339b84efa9766b4d94a.zip tcl-2df55486c49d238b2f888339b84efa9766b4d94a.tar.gz tcl-2df55486c49d238b2f888339b84efa9766b4d94a.tar.bz2 | |
New utility routines: TclIsSpaceProc() and TclCountSpaceRuns()
Use to replace calls to isspace() and their /* INTL */ risk.
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 e4a58ed..c34ce6c 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1665,7 +1665,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); |