[xml/sgml-commit] [SCM] linuxdoc-tools package for Debian. branch, experimental, updated. debian/0.9.60-14-ge8082e1

[Agustin Martin Domingo]

The following commit has been merged in the experimental branch:
commit c9eb7552a6b0670fe7071025a36c6b1b300da961
Author: Agustin Martin Domingo <agmartin at debian.org>
Date:   Wed Apr 29 20:22:20 2009 +0200

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

diff --git a/lib/fmt/fmt_info.pl b/lib/fmt/fmt_info.pl
index ca34856..37a3f14 100644
--- a/lib/fmt/fmt_info.pl
+++ b/lib/fmt/fmt_info.pl
@@ -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 = '';
       }

-- 
linuxdoc-tools package for Debian.