summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-01-21 02:25:38 (GMT)
committerhobbs <hobbs>2000-01-21 02:25:38 (GMT)
commit0dc0f2f4c07f50987efbb1859083ac312533d656 (patch)
tree87a296cb69b62c9180930e696e6176f98d00e051 /library
parentdf05056e3fba1a1d7b9cde6fc893514f18c6c5c5 (diff)
downloadtcl-0dc0f2f4c07f50987efbb1859083ac312533d656.zip
tcl-0dc0f2f4c07f50987efbb1859083ac312533d656.tar.gz
tcl-0dc0f2f4c07f50987efbb1859083ac312533d656.tar.bz2
* library/word.tcl: changed tcl_(non)wordchars settings to use
new unicode regexp char class escapes instead of char sequences
Diffstat (limited to 'library')
-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 --