diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-22 13:15:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-22 13:15:21 (GMT) |
| commit | f16557b5a03c04972b0b35eef114e92d2195e529 (patch) | |
| tree | e3822a417e6a9c5a1e5437f5334a484e4c3b8ab0 | |
| parent | c829651d80705243c9ea3665699f13ad901debbe (diff) | |
| download | tcl-f16557b5a03c04972b0b35eef114e92d2195e529.zip tcl-f16557b5a03c04972b0b35eef114e92d2195e529.tar.gz tcl-f16557b5a03c04972b0b35eef114e92d2195e529.tar.bz2 | |
Alternative solution for [f1253530cd]bug_f1253530cd_alt
| -rw-r--r-- | library/word.tcl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/library/word.tcl b/library/word.tcl index b8f34a5..3e4bc3a 100644 --- a/library/word.tcl +++ b/library/word.tcl @@ -15,12 +15,20 @@ if {$::tcl_platform(platform) eq "windows"} { # Windows style - any but a unicode space char - set ::tcl_wordchars {\S} - set ::tcl_nonwordchars {\s} + if {![info exists ::tcl_wordchars]} { + set ::tcl_wordchars {\S} + } + if {![info exists ::tcl_nonwordchars]} { + set ::tcl_nonwordchars {\s} + } } else { # Motif style - any unicode word char (number, letter, or underscore) - set ::tcl_wordchars {\w} - set ::tcl_nonwordchars {\W} + if {![info exists ::tcl_wordchars]} { + set ::tcl_wordchars {\w} + } + if {![info exists ::tcl_nonwordchars]} { + set ::tcl_nonwordchars {\W} + } } # Arrange for caches of the real matcher REs to be kept, which enables the REs |