Remove some extra not needed .Pp

* Collapse adjacent .Pp
* Remove .Pp before headers and exdented pars
parent b0fb10b6
......@@ -327,6 +327,10 @@ $txt->{postASP} = sub
$txtout .= $_;
}
# Remove some extra .Pp
$txtout =~ s/(\.Pp\n){2,}/\.Pp\n/g; # Collapse adjacent .Pp
$txtout =~ s/\.Pp\n(\.(IP|NH))/$1/g; # Remove .Pp before headers and exdented pars
if ( $global->{debug} ){
my $GROFF0;
my $groff0 = "$global->{tmpbase}.groff.0";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment