commit 84bd6f3b18766405e701c7edaa0b8ed94f8ba391
author Fred Drake <fdrake@acm.org> Tue May 11 15:42:51 1999 +0000
committer Fred Drake <fdrake@acm.org> Tue May 11 15:42:51 1999 +0000
tree e02693cef807939ac94b3d70af4f757426dc4c39
parent 03c05a51927b31e18a1185ea1a9f79806a348c20

Change the look of \seemodule output to fit in better.

Doc/perl/python.perl

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 @@
     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>"
-      . "&nbsp;&nbsp;&nbsp;($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>"
       . $_;
 }