diff options
| author | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
| commit | abb430245e8a99364bb0ddbca7f85c8adb62d36f (patch) | |
| tree | 6504f41b881faedff35589b0b480a44e4042fb92 /tools/index.tcl | |
| parent | e10b292750a32db464a69efbd938795b6f2c8d52 (diff) | |
| download | tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.zip tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.gz tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.bz2 | |
[Bug #3020677] wish can't link reg1.2
formatting, spacing, cleanup unused variables
Diffstat (limited to 'tools/index.tcl')
| -rw-r--r-- | tools/index.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tools/index.tcl b/tools/index.tcl index b39f7ca..2e52d60 100644 --- a/tools/index.tcl +++ b/tools/index.tcl @@ -8,14 +8,14 @@ # # 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.5 2004/05/18 12:28:40 dkf Exp $ -# +# +# RCS: @(#) $Id: index.tcl,v 1.6 2010/07/01 21:28:15 nijtmans Exp $ +# # Global variables used by these scripts: # # state - state variable that controls action of text proc. -# +# # topics - array indexed by (package,section,topic) with value # of topic ID. # @@ -138,7 +138,7 @@ proc macro {name args} { switch $args { NAME { - if {$state == "INIT" } { + if {$state eq "INIT" } { set state NAME } } @@ -147,7 +147,7 @@ proc macro {name args} { KEYWORDS {set state KEY} default {set state OFF} } - + } TH { global state curID curPkg curSect topics keywords @@ -179,7 +179,7 @@ proc macro {name args} { proc dash {} { global state - if {$state == "NAME"} { + if {$state eq "NAME"} { set state DASH } } @@ -188,7 +188,7 @@ proc dash {} { # initGlobals, tab, font, char, macro2 -- # -# These procedures do nothing during the first pass. +# These procedures do nothing during the first pass. # # Arguments: # None. |