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

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