summaryrefslogtreecommitdiffstats
path: root/tools
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)
commit498d3153045e95b6e89d9f5fa080c1f9fdb37f4f (patch)
treefbd62b53950f4ada448c056846e4ef8462f070c0 /tools
parentf679fe87ab5476d7591d5f88964222ac6934d4b2 (diff)
downloadtcl-498d3153045e95b6e89d9f5fa080c1f9fdb37f4f.zip
tcl-498d3153045e95b6e89d9f5fa080c1f9fdb37f4f.tar.gz
tcl-498d3153045e95b6e89d9f5fa080c1f9fdb37f4f.tar.bz2
Make HTML generator more resilient against problems when generating docs for
older versions of Tcl/Tk.
Diffstat (limited to 'tools')
-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]