[7973] remove _leading_spaces_arg

[gavinsmith0123]

Revision: 7973
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7973
Author:   gavin
Date:     2017-10-26 16:34:46 -0400 (Thu, 26 Oct 2017)
Log Message:
-----------
remove _leading_spaces_arg

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Convert/TexinfoXML.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-10-25 21:28:49 UTC (rev 7972)
+++ trunk/ChangeLog     2017-10-26 20:34:46 UTC (rev 7973)
@@ -1,3 +1,8 @@
+2017-10-26  Gavin Smith  <address@hidden>
+
+       * tp/Texinfo/Convert/TexinfoXML.pm (_leading_spaces_arg): Remove 
+       unused.
+
 2017-10-25  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/MiscXS/misc.c (xs_abort_empty_line): Update to

Modified: trunk/tp/Texinfo/Convert/TexinfoXML.pm
===================================================================
--- trunk/tp/Texinfo/Convert/TexinfoXML.pm      2017-10-25 21:28:49 UTC (rev 
7972)
+++ trunk/tp/Texinfo/Convert/TexinfoXML.pm      2017-10-26 20:34:46 UTC (rev 
7973)
@@ -659,19 +659,6 @@
   return ();
 }
 
-sub _leading_spaces_arg($$)
-{
-  my $self = shift;
-  my $root = shift;
-
-  my @result = ();
-  my @spaces = $self->_collect_leading_trailing_spaces_arg($root);
-  if (defined($spaces[0]) and $spaces[0] ne '') {
-    @result = ('spaces', _protect_in_spaces($spaces[0]));
-  }
-  return @result;
-}
-
 sub _leading_trailing_spaces_arg($$)
 {
   my $self = shift;