summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-11-08 08:22:13 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-11-08 08:22:13 (GMT)
commitb883137394973c0812d2f0ee147ddce2d878bb2e (patch)
treefbd62b53950f4ada448c056846e4ef8462f070c0
parent489ef88f0636302ed183640463fe7f9c1e135042 (diff)
downloadtcl-b883137394973c0812d2f0ee147ddce2d878bb2e.zip
tcl-b883137394973c0812d2f0ee147ddce2d878bb2e.tar.gz
tcl-b883137394973c0812d2f0ee147ddce2d878bb2e.tar.bz2
Make HTML generator more resilient against problems when generating docs for
older versions of Tcl/Tk.
-rw-r--r--tools/tcltk-man2html-utils.tcl4
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index c0c6a75..780cc6b 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -943,7 +943,9 @@ proc output-directive {line} {
set line [next-text]
if {[is-a-directive $line]} {
backup-text 1
- output-name [join $names { }]
+ if {[llength $names]} {
+ output-name [join $names { }]
+ }
return
}
lappend names [string trim $line]