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 | b883137394973c0812d2f0ee147ddce2d878bb2e (patch) | |
| tree | fbd62b53950f4ada448c056846e4ef8462f070c0 /tools/tcltk-man2html-utils.tcl | |
| parent | 489ef88f0636302ed183640463fe7f9c1e135042 (diff) | |
| download | tcl-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.
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -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] |