diff options
| author | hobbs <hobbs> | 2008-01-05 00:27:01 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2008-01-05 00:27:01 (GMT) |
| commit | 9d71fec4478107420e9e1d27660879c735640be2 (patch) | |
| tree | 9c40d8e11440c28031c42877128fa7dbb236d7ef /tools/tcltk-man2html.tcl | |
| parent | f336ac585ecc2f6c1ca5a67611bedbaa11a9c5df (diff) | |
| download | tcl-9d71fec4478107420e9e1d27660879c735640be2.zip tcl-9d71fec4478107420e9e1d27660879c735640be2.tar.gz tcl-9d71fec4478107420e9e1d27660879c735640be2.tar.bz2 | |
* tools/tcltk-man2html.tcl (make-man-pages): make man page title
use more specific info on lhs to improve tabbed browser view titles.
Diffstat (limited to 'tools/tcltk-man2html.tcl')
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index c12b643..21f70d4 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -1731,7 +1731,7 @@ proc make-man-pages {html args} { set manual($manual(name)-title) \ "[lrange $rest 1 end] [lindex $rest 0] manual page" } elseif {[next-op-is .TH rest]} { - set manual($manual(name)-title) "[lrange $rest 4 end] - [lindex $rest 0] manual page" + set manual($manual(name)-title) "[lindex $rest 0] manual page - [lrange $rest 4 end]" } else { set haserror 1 manerror "no .HS or .TH record found" |