[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.65.2.4,1.65.2.5

[Fred L. Drake]

Update of /projects/cvsroot/python/dist/src/Doc/perl
In directory weyr:/home/fdrake/projects/python/Doc-152p1/perl

Modified Files:
      Tag: release152p1-patches
	python.perl 
Log Message:

Adjust result for \file to match what CSS-aware browsers do as much as 
possible for non-CSS browsers; this is so users get the same
presentation as much as possible.

make_mod_index_entry():  Fix broken generation of Module Index data.


Index: python.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.65.2.4
retrieving revision 1.65.2.5
diff -C2 -r1.65.2.4 -r1.65.2.5
*** python.perl	2000/02/16 17:13:58	1.65.2.4
--- python.perl	2000/02/21 17:05:09	1.65.2.5
***************
*** 160,166 ****
      return use_italics(@_); }
  sub do_cmd_file{
!     return use_wrappers(@_[0], '<tt class="file">', '</tt>'); }
  sub do_cmd_filenq{
!     return use_wrappers(@_[0], '<tt class="file">', '</tt>'); }
  sub do_cmd_samp{
      return use_wrappers(@_[0], '"<tt class="samp">', '</tt>"'); }
--- 160,168 ----
      return use_italics(@_); }
  sub do_cmd_file{
!     return use_wrappers(@_[0],
!                         '<font class="file" face="sans-serif">',
!                         '</font>'); }
  sub do_cmd_filenq{
!     return do_cmd_file(@_[0]); }
  sub do_cmd_samp{
      return use_wrappers(@_[0], '"<tt class="samp">', '</tt>"'); }
***************
*** 482,486 ****
      if ($define eq 'DEF') {
  	# add to the module index
! 	my($nstr,$garbage) = split / /, $str, 2;
  	$Modules{$nstr} .= $ahref;
      }
--- 484,489 ----
      if ($define eq 'DEF') {
  	# add to the module index
!         $str =~ /(<tt.*<\/tt>)/;
!         my $nstr = $1;
  	$Modules{$nstr} .= $ahref;
      }