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