From 48449985f45745b06078c82bf01152daff13498d Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 12 Sep 2000 17:52:33 +0000
Subject: \seetitle:  New macro for building reference list content.

---
 Doc/perl/python.perl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'Doc/perl/python.perl')

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index f457715596..58a4a88984 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -1444,6 +1444,25 @@ sub do_cmd_seerfc{
     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();
-- 
cgit v1.2.1