diff options
author | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
---|---|---|
committer | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
commit | 540521771129cfb3a851405ae4306448fea3e769 (patch) | |
tree | 75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /library/word.tcl | |
parent | 4b301d844892c52ec5fecce47f03c91a551639ca (diff) | |
parent | b4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff) | |
download | tcl-540521771129cfb3a851405ae4306448fea3e769.zip tcl-540521771129cfb3a851405ae4306448fea3e769.tar.gz tcl-540521771129cfb3a851405ae4306448fea3e769.tar.bz2 |
merge trunktip_444
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} } |