summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-01-13 15:40:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-01-13 15:40:10 (GMT)
commite46193b8a6d74bc51512b2e7b4f029fcfa2da594 (patch)
tree4c4d365c46dc585f569f0026fbfd5eae4a9de332
parentcf087b8bcbf673840c1339d32015a6c63ab38f81 (diff)
downloadtcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.zip
tcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.tar.gz
tcl-e46193b8a6d74bc51512b2e7b4f029fcfa2da594.tar.bz2
Adjust the link suppression
-rwxr-xr-xtools/tcltk-man2html.tcl5
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 {