diff options
author | hobbs <hobbs@noemail.net> | 2008-01-05 00:27:01 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2008-01-05 00:27:01 (GMT) |
commit | 0759cfe08118df4a67c30869a2c5b9aecf9c7804 (patch) | |
tree | 9c40d8e11440c28031c42877128fa7dbb236d7ef /tools | |
parent | 3e1a32bdc658de3cebff9cadff391c045244ec6f (diff) | |
download | tcl-0759cfe08118df4a67c30869a2c5b9aecf9c7804.zip tcl-0759cfe08118df4a67c30869a2c5b9aecf9c7804.tar.gz tcl-0759cfe08118df4a67c30869a2c5b9aecf9c7804.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.
FossilOrigin-Name: e1659edfbca03861101d89d6d462ee591377d30c
Diffstat (limited to 'tools')
-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" |