fmt_info.pl: Remove leading tabs in abstract (really in preamble)

parent 5a91351f
......@@ -54,8 +54,9 @@ my $info_escape = sub {
$info->{preASP} = sub {
# ------------------------------------------------------------------
my ($INFILE, $OUTFILE) = @_;
my $suffix = ( $global->{charset} eq "latin1" ) ? '.2l1texi' : '.2texi';
my $char_maps = load_char_maps ($suffix, [ Text::EntityMap::sdata_dirs() ]);
my $suffix = ( $global->{charset} eq "latin1" ) ? '.2l1texi' : '.2texi';
my $char_maps = load_char_maps ($suffix, [ Text::EntityMap::sdata_dirs() ]);
my $inpreamble = 1;
my $inheading;
# Replace some symbols in the file before sgmlsasp is called. This
......@@ -73,6 +74,7 @@ $info->{preASP} = sub {
if ( s/^-// ) {
chomp;
s/([^\\])\\n/$1 /g if $inheading; # Remove spurious \n in headings
s/(\\n|^)\\011/$1/g if $inpreamble; # Remove leading tabs in abstract.
print $OUTFILE "-" .
parse_data ($_, $char_maps, $info_escape) . "\n";
} elsif (/^A/) {
......@@ -87,6 +89,7 @@ $info->{preASP} = sub {
} else {
if (/^\(HEADING/){
$inheading = 1;
$inpreamble = ''; # No longer in preamble if found a HEADING
} elsif (/^\)HEADING/){
$inheading = '';
}
......
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