[5282] * tp/Texinfo/Convert/Plaintext.pm: output ^L between

[Patrice Dumas]

Revision: 5282
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5282
Author:   pertusus
Date:     2013-08-07 18:59:06 +0000 (Wed, 07 Aug 2013)
Log Message:
-----------
        * tp/Texinfo/Convert/Plaintext.pm: output ^L between 
        paragraphs.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Convert/Plaintext.pm
    trunk/tp/t/results/coverage_braces/form_feed_in_brace_commands.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2013-08-06 23:16:56 UTC (rev 5281)
+++ trunk/ChangeLog     2013-08-07 18:59:06 UTC (rev 5282)
@@ -2,6 +2,8 @@
 
        * tp/Texinfo/Convert/HTML.pm(_default_protect_text), 
        tp/init/html32.pm: protect ^L with an entity.
+       * tp/Texinfo/Convert/Plaintext.pm: output ^L between 
+       paragraphs.
 
 2013-08-06  Patrice Dumas  <address@hidden>
 

Modified: trunk/tp/Texinfo/Convert/Plaintext.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Plaintext.pm       2013-08-06 23:16:56 UTC (rev 
5281)
+++ trunk/tp/Texinfo/Convert/Plaintext.pm       2013-08-07 18:59:06 UTC (rev 
5282)
@@ -1500,6 +1500,12 @@
     if ($self->{'empty_lines_count'} <= 1
         or 
$self->{'preformatted_context_commands'}->{$self->{'context'}->[-1]}) {
       $result = "\n";
+      if ($root->{'text'} =~ /\f/) {
+        my $form_feeds = $root->{'text'};
+        $form_feeds =~ s/^[^\f]*//;
+        $form_feeds =~ s/[^\f]$//;
+        $result = $form_feeds .$result;
+      }
       $self->_add_text_count($result);
       $self->_add_lines_count(1);
       return $result;

Modified: trunk/tp/t/results/coverage_braces/form_feed_in_brace_commands.pl
===================================================================
--- trunk/tp/t/results/coverage_braces/form_feed_in_brace_commands.pl   
2013-08-06 23:16:56 UTC (rev 5281)
+++ trunk/tp/t/results/coverage_braces/form_feed_in_brace_commands.pl   
2013-08-07 18:59:06 UTC (rev 5282)
@@ -305,15 +305,15 @@
 
 
 $result_converted{'plaintext'}->{'form_feed_in_brace_commands'} = '\' aa\'
-
+
    something fff <aaa>(1) (2).
 
    ---------- Footnotes ----------
 
    (1) f1
-
+
    (2) gg
-
+
    jj
 
 ';