[5578] * tp/texi2any.pl: no warning for non empty @ part for docbook and

[Patrice Dumas]

Revision: 5578
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5578
Author:   pertusus
Date:     2014-05-18 14:12:41 +0000 (Sun, 18 May 2014)
Log Message:
-----------
        * tp/texi2any.pl: no warning for non empty @part for docbook and
        HTML since non empty parts are formatted correctly for those
        formats.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/texi2any.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2014-05-18 14:04:06 UTC (rev 5577)
+++ trunk/ChangeLog     2014-05-18 14:12:41 UTC (rev 5578)
@@ -9,6 +9,9 @@
        * tp/texi2any.pl: put installation directory last in @INC,
        in order to have -I perl arguments take precedence.  Report
        from Aharon Robbins.
+       * tp/texi2any.pl: no warning for non empty @part for docbook and
+       HTML since non empty parts are formatted correctly for those
+       formats.
 
 2014-05-17  Gavin Smith  <address@hidden>
 

Modified: trunk/tp/texi2any.pl
===================================================================
--- trunk/tp/texi2any.pl        2014-05-18 14:04:06 UTC (rev 5577)
+++ trunk/tp/texi2any.pl        2014-05-18 14:12:41 UTC (rev 5578)
@@ -567,6 +567,7 @@
              'internal_links' => 1,
              'simple_menu' => 1,
              'move_index_entries_after_items' => 1,
+             'no_warn_non_empty_parts' => 1,
              'converter' => sub{Texinfo::Convert::HTML->converter(@_)},
            },
   'texinfoxml' => {
@@ -585,6 +586,7 @@
            },
   'docbook' => {
              'move_index_entries_after_items' => 1,
+             'no_warn_non_empty_parts' => 1,
              'converter' => sub{Texinfo::Convert::DocBook->converter(@_)},
            },
   'pdf' => {
@@ -1273,9 +1275,8 @@
   # done before dumping the tree?
   my $structure = Texinfo::Structuring::sectioning_structure($parser, $tree);
 
-  if ($structure) {
-    # FIXME allow suppressing this warning, for formats that in fact allow
-    # for non emptyt parts (HTML, DocBook)?
+  if ($structure
+      and !$formats_table{$format}->{'no_warn_non_empty_parts'}) {
     Texinfo::Structuring::warn_non_empty_parts($parser);
   }