diff options
| author | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
| commit | 74cee16544d00f49288f1819fb71e1c5c74ce5ad (patch) | |
| tree | d77bcc9fb09de474104b1fc59dde7cc6c20b4031 /library/word.tcl | |
| parent | 8377ed833a9566731442ef744b419425638d5040 (diff) | |
| parent | 03462e2c1dfc9da26f049ee17a3001df257442e4 (diff) | |
| download | tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.zip tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.gz tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.bz2 | |
Merge trunk
Diffstat (limited to 'library/word.tcl')
| -rw-r--r-- | library/word.tcl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/library/word.tcl b/library/word.tcl index b8f34a5..0246530 100644 --- a/library/word.tcl +++ b/library/word.tcl @@ -11,15 +11,13 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # The following variables are used to determine which characters are -# interpreted as white space. - -if {$::tcl_platform(platform) eq "windows"} { - # Windows style - any but a unicode space char - set ::tcl_wordchars {\S} - set ::tcl_nonwordchars {\s} -} else { - # Motif style - any unicode word char (number, letter, or underscore) +# interpreted as word characters. See bug [f1253530cdd8]. Will +# probably be removed in Tcl 9. + +if {![info exists ::tcl_wordchars]} { set ::tcl_wordchars {\w} +} +if {![info exists ::tcl_nonwordchars]} { set ::tcl_nonwordchars {\W} } |