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
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index da38cd2..cddba8c 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -2022,9 +2022,12 @@
$_ = &translate_environments($_);
$_ = &translate_commands($_) if (/\\/);
- # preserve space-runs, using
- while (s/(\S) ( +)/$1$2;SPMnbsp;/g){};
- s/(<BR>) /$1;SPMnbsp;/g;
+ # 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
, $_