[5775] * Texinfo/Convert/Plaintext.pm (converter_initialize): put

[Patrice Dumas]

Revision: 5775
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5775
Author:   pertusus
Date:     2014-08-23 11:38:42 +0000 (Sat, 23 Aug 2014)
Log Message:
-----------
        * Texinfo/Convert/Plaintext.pm (converter_initialize): put 
        push_top_formatter after setting 'fillcolumn' such that it is
        taken into account.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Convert/Plaintext.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2014-08-22 18:57:13 UTC (rev 5774)
+++ trunk/ChangeLog     2014-08-23 11:38:42 UTC (rev 5775)
@@ -1,3 +1,9 @@
+2014-08-23  Karl Berry  <address@hidden>
+
+       * Texinfo/Convert/Plaintext.pm (converter_initialize): put 
+       push_top_formatter after setting 'fillcolumn' such that it is
+       taken into account.
+
 2014-08-22  Gavin Smith  <address@hidden>
 
        * info/session.c (info_read_and_dispatch): Consider ESC <key> to be

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2014-08-22 18:57:13 UTC (rev 
5774)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2014-08-23 11:38:42 UTC (rev 
5775)
@@ -358,7 +358,6 @@
   $self->{'context'} = [];
   $self->{'format_context'} = [];
   $self->{'empty_lines_count'} = undef;
-  $self->push_top_formatter('_Root_context');
   push @{$self->{'count_context'}}, {'lines' => 0, 'bytes' => 0,
                                      'locations' => []};
 
@@ -405,6 +404,8 @@
     $self->{'fillcolumn'} = $self->get_conf('FILLCOLUMN');
     # else it's already set via the defaults
   }
+  # This needs to be here to take into account $self->{'fillcolumn'}.
+  $self->push_top_formatter('_Root_context');
   # some caching to avoid calling get_conf
   if ($self->get_conf('OUTPUT_PERL_ENCODING')) {
     $self->{'output_perl_encoding'} = $self->get_conf('OUTPUT_PERL_ENCODING');