[7556] Text.pm delete disabled code

[gavinsmith0123]

Revision: 7556
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7556
Author:   gavin
Date:     2016-12-18 16:31:18 +0000 (Sun, 18 Dec 2016)
Log Message:
-----------
Text.pm delete disabled code

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-12-18 15:34:25 UTC (rev 7555)
+++ trunk/ChangeLog     2016-12-18 16:31:18 UTC (rev 7556)
@@ -1,5 +1,10 @@
 2016-12-18  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/Text.pm (_convert): Delete disabled code 
+       used for debugging.
+
+2016-12-18  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Structuring.pm (do_index_keys): Explicitly list the 
        commands to get the text of index entries for.
 

Modified: trunk/tp/Texinfo/Convert/Text.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Text.pm    2016-12-18 15:34:25 UTC (rev 7555)
+++ trunk/tp/Texinfo/Convert/Text.pm    2016-12-18 16:31:18 UTC (rev 7556)
@@ -1,6 +1,7 @@
 # Text.pm: output tree as simple text.
 #
-# Copyright 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+# Copyright 2010, 2011, 2012, 2013, 2014, 2015, 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
@@ -350,20 +351,6 @@
   my $root = shift;
   my $options = 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'}