[Python-checkins] python/dist/src/Doc/perl python.perl,1.145,1.146

[fdrake at users.sourceforge.net]

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

Modified Files:
	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.145
retrieving revision 1.146
diff -C2 -d -r1.145 -r1.146
*** python.perl	30 Dec 2003 16:44:45 -0000	1.145
--- python.perl	8 Jan 2004 14:57:27 -0000	1.146
***************
*** 1951,1954 ****
--- 1951,1967 ----
  }
  
+ 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($_) = @_;