diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-13 15:40:10 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-13 15:40:10 (GMT) |
| commit | e46193b8a6d74bc51512b2e7b4f029fcfa2da594 (patch) | |
| tree | 4c4d365c46dc585f569f0026fbfd5eae4a9de332 | |
| parent | cf087b8bcbf673840c1339d32015a6c63ab38f81 (diff) | |
| download | tcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.zip tcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.tar.gz tcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.tar.bz2 | |
Adjust the link suppression
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index bed64c9..7f31fc8 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -628,7 +628,7 @@ proc make-man-pages {html args} { lappend keyheader $a } } - set keyheader "<H3>[join $keyheader " |\n"]</H3>" + set keyheader <H3>[join $keyheader " |\n"]</H3> puts $keyfp $keyheader foreach a $letters { set keys [array names manual "keyword-\[[string totitle $a$a]\]*"] @@ -680,7 +680,7 @@ proc make-man-pages {html args} { ## unset manual(section) if {!$verbose} { - puts stderr "Rescanning [llength $manual(all-pages)] pages" + puts stderr "Rescanning [llength $manual(all-pages)] pages to build cross links" } foreach path $manual(all-pages) { set manual(wing-file) [file dirname $path] @@ -802,6 +802,7 @@ array set exclude_refs_map { options.n {bitmap image set} radiobutton.n {image} scrollbar.n {set} + tkvars.n {tk} } array set exclude_when_followed_by_map { canvas.n { |