[Python-checkins] python/dist/src/Doc/perl python.perl, 1.137, 1.137.8.1

[fdrake at users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv13253/perl

Modified Files:
      Tag: release23-maint
	python.perl 
Log Message:
add new reference macro: \seelink

Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.137
retrieving revision 1.137.8.1
diff -C2 -d -r1.137 -r1.137.8.1
*** python.perl	16 Jul 2003 14:01:56 -0000	1.137
--- python.perl	8 Jan 2004 15:00:13 -0000	1.137.8.1
***************
*** 1909,1912 ****
--- 1909,1925 ----
  }
  
+ 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($_) = @_;