From 41aa0183989aefce884c457421cd10fa810d124d Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Fri, 5 Sep 2003 15:43:00 +0000 Subject: [PATCH] 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 --- Doc/perl/python.perl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index da38cd25907..cddba8c11be 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -2022,9 +2022,12 @@ sub do_env_alltt{ $_ = &translate_environments($_); $_ = &translate_commands($_) if (/\\/); - # preserve space-runs, using   - while (s/(\S) ( +)/$1$2;SPMnbsp;/g){}; - s/(
) /$1;SPMnbsp;/g; + # remove spurious
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/
/ /gi; $_ = join('', $closures, $alltt_start, $local_reopens , $_