diff Doc/perl/python.perl @ 10846:b7378df3db56 legacy-trunk

Change the look of \seemodule output to fit in better.
author Fred Drake <fdrake@acm.org>
date Tue, 11 May 1999 15:42:51 +0000
parents 966594c6b1e2
children 4da76f838a5e
line wrap: on
line diff
--- a/Doc/perl/python.perl	Tue May 11 15:15:54 1999 +0000
+++ b/Doc/perl/python.perl	Tue May 11 15:42:51 1999 +0000
@@ -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>"
       . $_;
 }