texinfo/tp TODO Texinfo/Parser.pm t/results/sec...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/11/05 09:30:11

Modified files:
        tp             : TODO 
        tp/Texinfo     : Parser.pm 
        tp/t/results/sectioning: setfilename_on_top_and_after_node.pl 

Log message:
        Warn for @setfilename after first element.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.213&r2=1.214
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.331&r2=1.332
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/setfilename_on_top_and_after_node.pl?cvsroot=texinfo&r1=1.13&r2=1.14

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -b -r1.213 -r1.214
--- TODO        5 Nov 2011 00:12:37 -0000       1.213
+++ TODO        5 Nov 2011 09:30:10 -0000       1.214
@@ -13,10 +13,6 @@
 the subsection that is both below and next the section, because it is 
 next in menu.  Bug or not?
 
-t/30sectioning.t setfilename_on_top_and_after_node
-there could be a warning
- warning: @setfilename after the first element
-
 The result of
   @abbr{AAA}. And text.
 is not right, space should be doubled after @abbr{AAA}, test in

Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.331
retrieving revision 1.332
diff -u -b -r1.331 -r1.332
--- Texinfo/Parser.pm   5 Nov 2011 00:12:37 -0000       1.331
+++ Texinfo/Parser.pm   5 Nov 2011 09:30:10 -0000       1.332
@@ -2965,6 +2965,10 @@
                            and scalar(@{$self->{'input'}}) > 1)) {
       pop @{$current->{'contents'}};
     # columnfractions 
+    } elsif ($command eq 'setfilename'
+             and ($self->{'current_node'} or $self->{'current_section'})) {
+      $self->_command_warn($misc_cmd, $line_nr,
+               $self->__("address@hidden after the first element"), $command);
     } elsif ($command eq 'columnfractions') {
       # in a multitable, we are in a block_line_arg
       if (!$current->{'parent'} or !$current->{'parent'}->{'cmdname'} 

Index: t/results/sectioning/setfilename_on_top_and_after_node.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/setfilename_on_top_and_after_node.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- t/results/sectioning/setfilename_on_top_and_after_node.pl   1 Nov 2011 
12:01:48 -0000       1.13
+++ t/results/sectioning/setfilename_on_top_and_after_node.pl   5 Nov 2011 
09:30:11 -0000       1.14
@@ -302,6 +302,15 @@
     'type' => 'warning'
   },
   {
+    'error_line' => ':2: warning: @setfilename after the first element
+',
+    'file_name' => '',
+    'line_nr' => 2,
+    'macro' => '',
+    'text' => '@setfilename after the first element',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':4: warning: Multiple @setfilename
 ',
     'file_name' => '',
@@ -309,6 +318,15 @@
     'macro' => '',
     'text' => 'Multiple @setfilename',
     'type' => 'warning'
+  },
+  {
+    'error_line' => ':4: warning: @setfilename after the first element
+',
+    'file_name' => '',
+    'line_nr' => 4,
+    'macro' => '',
+    'text' => '@setfilename after the first element',
+    'type' => 'warning'
   }
 ];