[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7213] TextContent.pm remove commented-out code
From: |
gavinsmith0123 |
Subject: |
[7213] TextContent.pm remove commented-out code |
Date: |
Thu, 9 Jun 2016 20:41:31 +0000 (UTC) |
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'}}) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7213] TextContent.pm remove commented-out code,
gavinsmith0123 <=