From 4f687b305162d8e3babc72eda37fd88bba40b1b2 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 8 Jan 2004 14:57:27 +0000
Subject: add new reference macro: \seelink

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

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 5ef3b275ff..89e12d5828 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -1950,6 +1950,19 @@ sub do_cmd_seetitle{
       . $_;
 }
 
+sub do_cmd_seelink{
+    local($_) = @_;
+    my $url = next_argument();
+    my $linktext = next_argument();
+    my $text = next_argument();
+    my $icon = get_link_icon($url);
+    return '<dl compact class="seeurl">'
+      . "\n    <dt><a href='$url'"
+      . "\n        >$linktext$icon</a></dt>"
+      . "\n    <dd>$text</dd>\n  </dl>"
+      . $_;
+}
+
 sub do_cmd_seeurl{
     local($_) = @_;
     my $url = next_argument();
-- 
cgit v1.2.1