diff options
| author | Fred Drake <fdrake@acm.org> | 1998-04-01 22:44:56 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-04-01 22:44:56 (GMT) |
| commit | 1a7af3959b56a503692d15329e1ff52d947fc02c (patch) | |
| tree | 161e86ed2f9a906b8970f4c16be5e7ab40800701 /Doc/perl/python.perl | |
| parent | 454a4fb018257cf5e8c72486cf62e3f4ee523e8a (diff) | |
| download | cpython-1a7af3959b56a503692d15329e1ff52d947fc02c.zip cpython-1a7af3959b56a503692d15329e1ff52d947fc02c.tar.gz cpython-1a7af3959b56a503692d15329e1ff52d947fc02c.tar.bz2 | |
Implemented one more special markup item.
Diffstat (limited to 'Doc/perl/python.perl')
| -rw-r--r-- | Doc/perl/python.perl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 3536f32..19f5ee4 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -107,6 +107,14 @@ sub do_cmd_var{ &use_italics(@_); } sub do_cmd_dfn{ &use_italics(@_); } # make an index entry? sub do_cmd_emph{ &use_italics(@_); } +sub do_cmd_newsgroup{ + local($_) = @_; + s/$next_pair_pr_rx//o; + my $newsgroup = $2; + my $stuff = "<a href=\"news:$newsgroup\"><font face=sans-serif>" + . "$newsgroup</font></a>"; + $stuff . $_; +} sub do_cmd_envvar{ local($_) = @_; |