\seetitle: New macro for building reference list content.
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index f457715..58a4a88 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -1444,6 +1444,25 @@
return handle_rfclike_reference(@_[0], "RFC");
}
+sub do_cmd_seetitle{
+ local($_) = @_;
+ my $url = next_optional_argument();
+ my $title = next_argument();
+ my $text = next_argument();
+ if ($url) {
+ return '<dl compact class="seetitle">'
+ . "\n <dt><em class=\"citetitle\"><a href=\"$url\""
+ . "\n class=\"url\">$title</a></em>"
+ . "\n <dd>$text\n </dl>"
+ . $_;
+ }
+ return '<dl compact class="seetitle">'
+ . "\n <dt><em class=\"citetitle\""
+ . "\n >$title</em>"
+ . "\n <dd>$text\n </dl>"
+ . $_;
+}
+
sub do_cmd_seeurl{
local($_) = @_;
my $url = next_argument();