summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/word.tcl14
1 files changed, 7 insertions, 7 deletions
diff --git a/library/word.tcl b/library/word.tcl
index d0d8a60..7d85de0 100644
--- a/library/word.tcl
+++ b/library/word.tcl
@@ -10,19 +10,19 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: word.tcl,v 1.5 1999/08/19 02:59:40 hobbs Exp $
+# RCS: @(#) $Id: word.tcl,v 1.6 2000/01/21 02:25:38 hobbs Exp $
# The following variables are used to determine which characters are
# interpreted as white space.
if {[string equal $tcl_platform(platform) "windows"]} {
- # Windows style - any but space, tab, or newline
- set tcl_wordchars "\[^ \t\n\]"
- set tcl_nonwordchars "\[ \t\n\]"
+ # Windows style - any but a unicode space char
+ set tcl_wordchars "\\S"
+ set tcl_nonwordchars "\\s"
} else {
- # Motif style - any number, letter, or underscore
- set tcl_wordchars {[a-zA-Z0-9_]}
- set tcl_nonwordchars {[^a-zA-Z0-9_]}
+ # Motif style - any unicode word char (number, letter, or underscore)
+ set tcl_wordchars "\\w"
+ set tcl_nonwordchars "\\W"
}
# tcl_wordBreakAfter --