diff options
| author | Fred Drake <fdrake@acm.org> | 1999-05-11 15:42:51 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1999-05-11 15:42:51 (GMT) |
| commit | 84bd6f3b18766405e701c7edaa0b8ed94f8ba391 (patch) | |
| tree | e02693cef807939ac94b3d70af4f757426dc4c39 /Doc/perl/python.perl | |
| parent | 03c05a51927b31e18a1185ea1a9f79806a348c20 (diff) | |
| download | cpython-84bd6f3b18766405e701c7edaa0b8ed94f8ba391.zip cpython-84bd6f3b18766405e701c7edaa0b8ed94f8ba391.tar.gz cpython-84bd6f3b18766405e701c7edaa0b8ed94f8ba391.tar.bz2 | |
Change the look of \seemodule output to fit in better.
Diffstat (limited to 'Doc/perl/python.perl')
| -rw-r--r-- | Doc/perl/python.perl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 2b6fa18..67bac72 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -1081,12 +1081,16 @@ sub do_cmd_seemodule{ my $key = next_optional_argument(); my $module = next_argument(); my $text = next_argument(); + my $period = '.'; $key = $module unless $key; - return '<div class=seemodule>' - . "\n<p>Module <b><tt class=module><a href=\"module-$key.html\">" - . "$module</a></tt></b>" - . " ($text)</p>\n</div>" + if ($text =~ /\.$/) { + $period = ''; + } + return '<dl compact class=seemodule>' + . "\n <dt>Module <b><tt class=module><a href=\"module-$key.html\">" + . "$module</a></tt>:</b>" + . "\n <dd>$text$period\n </dl>" . $_; } |