diff options
| author | dkf <dkf@noemail.net> | 2004-05-18 12:28:40 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-05-18 12:28:40 (GMT) |
| commit | 4aa7356f231e6607072123c4fb61758cf5a17378 (patch) | |
| tree | f2d9573d38cfec1ccab74708c4ff275758102325 /tools/index.tcl | |
| parent | b60aa89d0bd7432aaf9a01fc7b7c243685699c5a (diff) | |
| download | tcl-4aa7356f231e6607072123c4fb61758cf5a17378.zip tcl-4aa7356f231e6607072123c4fb61758cf5a17378.tar.gz tcl-4aa7356f231e6607072123c4fb61758cf5a17378.tar.bz2 | |
More adaptations to understand .SS macros.
FossilOrigin-Name: 86d6a29be3839f8e520237e69690f75a48062f69
Diffstat (limited to 'tools/index.tcl')
| -rw-r--r-- | tools/index.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/index.tcl b/tools/index.tcl index 26e4386..b39f7ca 100644 --- a/tools/index.tcl +++ b/tools/index.tcl @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: index.tcl,v 1.4 2003/06/04 23:40:18 mistachkin Exp $ +# RCS: @(#) $Id: index.tcl,v 1.5 2004/05/18 12:28:40 dkf Exp $ # # Global variables used by these scripts: @@ -133,7 +133,7 @@ proc text string { proc macro {name args} { switch $name { - SH { + SH - SS { global state switch $args { |