diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2003-06-04 23:41:14 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2003-06-04 23:41:14 (GMT) |
| commit | bbd2e7af7aeb9a2e197f40113740755504716d7a (patch) | |
| tree | 474aaded278e4066475e759d40c50466c410d28f /tools/man2help.tcl | |
| parent | 0c2fad2535129377ff0aeba08bee31cb85c08814 (diff) | |
| download | tcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.zip tcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.tar.gz tcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.tar.bz2 | |
Fix for [Bug 748700]
Diffstat (limited to 'tools/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index d172d1e..b0da42a 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# RCS: @(#) $Id: man2help.tcl,v 1.13 2002/08/09 00:13:54 davygrvy Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.13.2.1 2003/06/04 23:41:15 mistachkin Exp $ # # @@ -28,7 +28,13 @@ proc generateContents {basename version files} { puts $fd ":Base $basename$version.hlp" foreach package [getPackages] { foreach section [getSections $package] { - puts $fd "1 $section" + if {![info exists lastSection]} { + set lastSection {} + } + if {[string compare $lastSection $section]} { + puts $fd "1 $section" + } + set lastSection $section set lastTopic {} foreach topic [getTopics $package $section] { if {[string compare $lastTopic $topic]} { |