diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-08 08:22:13 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-08 08:22:13 (GMT) |
| commit | 498d3153045e95b6e89d9f5fa080c1f9fdb37f4f (patch) | |
| tree | fbd62b53950f4ada448c056846e4ef8462f070c0 /tools | |
| parent | f679fe87ab5476d7591d5f88964222ac6934d4b2 (diff) | |
| download | tcl-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.tcl | 4 |
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] |