Attachment "tclUtil.c.patch" to
ticket [411825ffff]
added by
dgp
2001-03-29 15:55:06.
Index: tclUtil.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclUtil.c,v
retrieving revision 1.18
diff -u -r1.18 tclUtil.c
--- tclUtil.c 2000/05/08 21:59:59 1.18
+++ tclUtil.c 2001/03/29 08:46:53
@@ -1944,7 +1944,7 @@
}
end--;
if (*end != '{') {
- if (isspace(UCHAR(*end)) /* INTL: ISO space. */
+ if (isspace(UCHAR(*end)) && (*end < 0x80) /* INTL: ISO space. */
&& ((end == start) || (end[-1] != '\\'))) {
return 0;
}
@@ -1956,7 +1956,7 @@
}
end--;
} while (*end == '{');
- if (isspace(UCHAR(*end))) { /* INTL: ISO space. */
+ if (isspace(UCHAR(*end)) && (*end < 0x80)) { /* INTL: ISO space. */
return 0;
}
return 1;
