From 9d71fec4478107420e9e1d27660879c735640be2 Mon Sep 17 00:00:00 2001 From: hobbs Date: Sat, 5 Jan 2008 00:27:01 +0000 Subject: * tools/tcltk-man2html.tcl (make-man-pages): make man page title use more specific info on lhs to improve tabbed browser view titles. --- ChangeLog | 5 +++++ tools/tcltk-man2html.tcl | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 877d56e..6449c96 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-01-04 Jeff Hobbs + + * tools/tcltk-man2html.tcl (make-man-pages): make man page title + use more specific info on lhs to improve tabbed browser view titles. + 2008-01-02 Donal K. Fellows * doc/binary.n: Fixed documentation bug reported on tcl-core, and 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" -- cgit v0.12