[7213] TextContent.pm remove commented-out code

[gavinsmith0123]

Revision: 7213
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7213
Author:   gavin
Date:     2016-06-09 20:41:30 +0000 (Thu, 09 Jun 2016)
Log Message:
-----------
TextContent.pm remove commented-out code

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-06-09 20:11:47 UTC (rev 7212)
+++ trunk/ChangeLog     2016-06-09 20:41:30 UTC (rev 7213)
@@ -1,5 +1,10 @@
 2016-06-09  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/TextContent.pm: Remove commented-out and 
+       disabled code.
+
+2016-06-09  Gavin Smith  <address@hidden>
+
        * doc/texinfo-text-test.texi (@set and @value): Add a chapter 
        for tests of @set and @value.  Add a test of a value in an index 
        entry which is only defined after the index entry.

Modified: trunk/tp/Texinfo/Convert/TextContent.pm
===================================================================
--- trunk/tp/Texinfo/Convert/TextContent.pm     2016-06-09 20:11:47 UTC (rev 
7212)
+++ trunk/tp/Texinfo/Convert/TextContent.pm     2016-06-09 20:41:30 UTC (rev 
7213)
@@ -1,6 +1,6 @@
 # TextContent.pm: return the text contents stripped of commands
 #
-# Copyright 2012 Free Software Foundation, Inc.
+# Copyright 2012, 2016 Free Software Foundation, Inc.
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -95,20 +95,6 @@
   my $self = shift;
   my $root = shift;
 
-  if (0) {
-    print STDERR "root $root";
-    print STDERR " cmd: address@hidden>{'cmdname'}," if ($root->{'cmdname'});
-    print STDERR " type: $root->{'type'}," if ($root->{'type'});
-    my $text = $root->{'text'};
-    if (defined($text)) {
-      $text =~ s/\n/\\n/;
-      print STDERR " text: `$text'";
-    }
-    print STDERR "\n";
-    #print STDERR "  Special def_command: $root->{'extra'}->{'def_command'}\n"
-    #  if (defined($root->{'extra'}) and $root->{'extra'}->{'def_command'});
-  }
-
   return '' if (!($root->{'type'} and $root->{'type'} eq 'def_line')
      and (($root->{'type'} and $ignored_types{$root->{'type'}})
           or ($root->{'cmdname'}
@@ -150,9 +136,6 @@
   if ($root->{'args'} 
       and (!$root->{'cmdname'} 
            or !$Texinfo::Common::block_item_commands{$root->{'cmdname'}})) {
-    #if ($root->{'type'} and ($root->{'type'} eq 'def_line'
-    #                         or $root->{'type'} eq 'menu_entry')) { 
-    #}
     my $args;
     if ($root->{'cmdname'} 
       and $Texinfo::Common::inline_format_commands{$root->{'cmdname'}}) {