[Python-checkins] python/dist/src/Doc/perl python.perl,1.140,1.141

[fdrake at users.sourceforge.net]

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

Modified Files:
	python.perl 
Log Message:
fix some nuissance formatting problems for the "alltt" environment;
there's still a bug for the environment, but that's worked around in
this change as well


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.140
retrieving revision 1.141
diff -C2 -d -r1.140 -r1.141
*** python.perl	4 Sep 2003 21:25:03 -0000	1.140
--- python.perl	5 Sep 2003 15:43:00 -0000	1.141
***************
*** 2023,2029 ****
  	$_ = &translate_commands($_) if (/\\/);
  
! 	# preserve space-runs, using  
! 	while (s/(\S) ( +)/$1$2;SPMnbsp;/g){};
! 	s/(<BR>) /$1;SPMnbsp;/g;
  
  	$_ = join('', $closures, $alltt_start, $local_reopens
--- 2023,2032 ----
  	$_ = &translate_commands($_) if (/\\/);
  
!         # remove spurious <BR> someone sticks in; not sure where they
!         # actually come from
!         # XXX the replacement space is there to accomodate something
!         # broken that inserts a space in front of the first line of
!         # the environment
!         s/<BR>/ /gi;
  
  	$_ = join('', $closures, $alltt_start, $local_reopens