diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-03-19 11:50:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-03-19 11:50:47 (GMT) |
| commit | c29a0f17728ac66f5e659321fc15aa379af68abe (patch) | |
| tree | 432d0112fe1e1e84719f89fa87200adfeb1edbf7 /doc/regsub.n | |
| parent | cad5197fbd7951c710146d8333f06a1e1b178211 (diff) | |
| download | tcl-c29a0f17728ac66f5e659321fc15aa379af68abe.zip tcl-c29a0f17728ac66f5e659321fc15aa379af68abe.tar.gz tcl-c29a0f17728ac66f5e659321fc15aa379af68abe.tar.bz2 | |
Fixed bug in regsub example.
Diffstat (limited to 'doc/regsub.n')
| -rw-r--r-- | doc/regsub.n | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/doc/regsub.n b/doc/regsub.n index 333c776..30fd5b1 100644 --- a/doc/regsub.n +++ b/doc/regsub.n @@ -6,7 +6,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: regsub.n,v 1.16 2007/02/18 18:42:55 dkf Exp $ +'\" RCS: @(#) $Id: regsub.n,v 1.17 2007/03/19 11:50:50 dkf Exp $ '\" .so man.macros .TH regsub n 8.3 Tcl "Tcl Built-In Commands" @@ -128,7 +128,7 @@ Convert all non-ASCII and Tcl-significant characters into \eu escape sequences by using \fBregsub\fR and \fBsubst\fR in combination: .CS # This RE is just a character class for everything "bad" -set RE {[][{}\e$\es\eu0100-\euffff]} +set RE {[][{};#\e\e\e$\es\eu0100-\euffff]} # We will substitute with a fragment of Tcl script in brackets set substitution {[format \e\e\e\eu%04x [scan "\e\e&" %c]]} @@ -143,7 +143,5 @@ regexp(n), re_syntax(n), subst(n), .VS 8.5 string(n) .VE - - .SH KEYWORDS match, pattern, regular expression, substitute |