texinfo/tp Texinfo/Parser.pm t/results/include/...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/11/26 17:56:27

Modified files:
        tp/Texinfo     : Parser.pm 
        tp/t/results/include: macro_in_early_commands.pl 
        tp/t/results/misc_commands: many_lines.pl 
        tp/t/results/value: value_in_misc_commands.pl 

Log message:
        Add the encoding alias to the @documentencoding command information.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.156&r2=1.157
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/include/macro_in_early_commands.pl?cvsroot=texinfo&r1=1.24&r2=1.25
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/misc_commands/many_lines.pl?cvsroot=texinfo&r1=1.21&r2=1.22
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/value/value_in_misc_commands.pl?cvsroot=texinfo&r1=1.31&r2=1.32

Patches:
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -b -r1.156 -r1.157
--- Texinfo/Parser.pm   26 Nov 2010 15:24:22 -0000      1.156
+++ Texinfo/Parser.pm   26 Nov 2010 17:56:26 -0000      1.157
@@ -1853,6 +1853,7 @@
             foreach my $input (@{$self->{'input'}}) {
               binmode($input->{'fh'}, ":encoding($encoding)") if 
($input->{'fh'});
             }
+            $current->{'extra'}->{'encoding_alias'} =  $encoding;
           }
         } else {
           _line_warn ($self, sprintf($self->__("address@hidden missing 
argument"), 

Index: t/results/include/macro_in_early_commands.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/include/macro_in_early_commands.pl,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- t/results/include/macro_in_early_commands.pl        26 Nov 2010 15:24:22 
-0000      1.24
+++ t/results/include/macro_in_early_commands.pl        26 Nov 2010 17:56:27 
-0000      1.25
@@ -243,6 +243,7 @@
           ],
           'cmdname' => 'documentencoding',
           'extra' => {
+            'encoding_alias' => 'iso-8859-1',
             'text_arg' => 'ISO-8859-1'
           },
           'line_nr' => {

Index: t/results/misc_commands/many_lines.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/results/misc_commands/many_lines.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- t/results/misc_commands/many_lines.pl       20 Nov 2010 16:58:08 -0000      
1.21
+++ t/results/misc_commands/many_lines.pl       26 Nov 2010 17:56:27 -0000      
1.22
@@ -828,6 +828,7 @@
           ],
           'cmdname' => 'documentencoding',
           'extra' => {
+            'encoding_alias' => 'iso-8859-1',
             'text_arg' => 'ISO-8859-1'
           },
           'line_nr' => {

Index: t/results/value/value_in_misc_commands.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/value/value_in_misc_commands.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- t/results/value/value_in_misc_commands.pl   20 Nov 2010 16:58:10 -0000      
1.31
+++ t/results/value/value_in_misc_commands.pl   26 Nov 2010 17:56:27 -0000      
1.32
@@ -1516,6 +1516,7 @@
           ],
           'cmdname' => 'documentencoding',
           'extra' => {
+            'encoding_alias' => 'iso-8859-1',
             'text_arg' => 'ISO-8859-1'
           },
           'line_nr' => {