[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.111,1.112

[Fred L. Drake]

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

Modified Files:
	python.perl 
Log Message:
Add yet more markup that let's a stylesheet pick out a small bit of the
presentation.  This is acceptable since it only occurs in the formatted
output and does not affect the document markup.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.111
retrieving revision 1.112
diff -C2 -d -r1.111 -r1.112
*** python.perl	2001/10/09 18:01:23	1.111
--- python.perl	2001/10/26 03:09:27	1.112
***************
*** 869,872 ****
--- 869,876 ----
  }
  
+ 
+ $TLSTART = '<span class="typelabel">';
+ $TLEND   = '</span>';
+ 
  sub do_env_cfuncdesc{
      local($_) = @_;
***************
*** 1048,1052 ****
      my $excname = next_argument();
      my $idx = make_str_index_entry("<tt class=\"exception\">$excname</tt>");
!     return "<dl><dt><b>exception $idx</b>\n<dd>" . $_ . '</dl>'
  }
  
--- 1052,1059 ----
      my $excname = next_argument();
      my $idx = make_str_index_entry("<tt class=\"exception\">$excname</tt>");
!     return ("<dl><dt><b>${TLSTART}exception$TLEND $idx</b>"
!             . "\n<dd>"
!             . $_
!             . '</dl>');
  }
  
***************
*** 1061,1065 ****
  	"<tt class=\"$what\">$THIS_CLASS</tt> ($what in $THIS_MODULE)" );
      $idx =~ s/ \(.*\)//;
!     return ("<dl><dt><b>$what $idx</b>(<var>$arg_list</var>)\n<dd>"
              . $_
              . '</dl>');
--- 1068,1073 ----
  	"<tt class=\"$what\">$THIS_CLASS</tt> ($what in $THIS_MODULE)" );
      $idx =~ s/ \(.*\)//;
!     return ("<dl><dt><b>$TLSTART$what$TLEND $idx</b>"
!             . "(<var>$arg_list</var>)\n<dd>"
              . $_
              . '</dl>');
***************
*** 1076,1080 ****
  	"<tt class=\"class\">$THIS_CLASS</tt> (class in $THIS_MODULE)");
      $idx =~ s/ \(.*\)//;
!     return ("<dl><dt><b>class $idx</b>\n<dd>"
              . $_
              . '</dl>');
--- 1084,1088 ----
  	"<tt class=\"class\">$THIS_CLASS</tt> (class in $THIS_MODULE)");
      $idx =~ s/ \(.*\)//;
!     return ("<dl><dt><b>${TLSTART}class$TLEND $idx</b>\n<dd>"
              . $_
              . '</dl>');