[8208] do not call _trim_spaces_comment_from_content

[gavinsmith0123]

Revision: 8208
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8208
Author:   gavin
Date:     2018-09-22 15:37:31 -0400 (Sat, 22 Sep 2018)
Log Message:
-----------
do not call _trim_spaces_comment_from_content

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-09-22 17:38:25 UTC (rev 8207)
+++ trunk/ChangeLog     2018-09-22 19:37:31 UTC (rev 8208)
@@ -1,5 +1,10 @@
 2018-09-22  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Parser.pm (_parse_line_command_args): Do not call
+       _trim_spaces_comment_from_content.
+
+2018-09-22  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Parser.pm (_isolate_last_space): Isolate the last 
        space on a misc_line_arg if it has a 'type' set, including
        'empty_line_after_command'.

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-09-22 17:38:25 UTC (rev 8207)
+++ trunk/tp/Texinfo/Parser.pm  2018-09-22 19:37:31 UTC (rev 8208)
@@ -5537,11 +5537,7 @@
     }
   }
 
-  my @contents = @{$arg->{'contents'}};
-
-  _trim_spaces_comment_from_content(address@hidden);
-
-  if (! @contents) {
+  if (!$arg->{'contents'} or address@hidden>{'contents'}}) {
     $self->_command_error($line_command, $line_nr,
                __("address@hidden missing argument"), $command);
     $line_command->{'extra'}->{'missing_argument'} = 1;
@@ -5548,14 +5544,14 @@
     return undef;
   }
 
-  if (@contents > 1
-         or (!defined($contents[0]->{'text'}))) {
+  if (@{$arg->{'contents'}} > 1
+         or (!defined($arg->{'contents'}->[0]->{'text'}))) {
     $self->line_error (sprintf(__("superfluous argument to address@hidden"),
        $command), $line_nr);
   }
-  return undef if (!defined($contents[0]->{'text'}));
+  return undef if (!defined($arg->{'contents'}->[0]->{'text'}));
   
-  my $line = $contents[0]->{'text'};  
+  my $line = $arg->{'contents'}->[0]->{'text'};  
 
   if ($command eq 'alias') {
     # REMACRO