[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7835] gdt remove translated_paragraph case
From: |
gavinsmith0123 |
Subject: |
[7835] gdt remove translated_paragraph case |
Date: |
Sun, 18 Jun 2017 12:01:28 -0400 (EDT) |
Revision: 7835
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7835
Author: gavin
Date: 2017-06-18 12:01:28 -0400 (Sun, 18 Jun 2017)
Log Message:
-----------
gdt remove translated_paragraph case
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Report.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2017-06-18 15:35:53 UTC (rev 7834)
+++ trunk/ChangeLog 2017-06-18 16:01:28 UTC (rev 7835)
@@ -1,5 +1,11 @@
2017-06-18 Gavin Smith <address@hidden>
+ * tp/Texinfo/Report.pm (gdt): Remove code dealing with a
+ 'translated_paragraph' argument. Condense code dealing
+ with subroutine arguments to a single line.
+
+2017-06-18 Gavin Smith <address@hidden>
+
* tp/Texinfo/Convert/Paragraph.pm: Remove check for UTF-8 locale
that runs "locale -a".
xspara_init in tp/Texinfo/Convert/XSParagraph/xspara.c does its
Modified: trunk/tp/Texinfo/Report.pm
===================================================================
--- trunk/tp/Texinfo/Report.pm 2017-06-18 15:35:53 UTC (rev 7834)
+++ trunk/tp/Texinfo/Report.pm 2017-06-18 16:01:28 UTC (rev 7835)
@@ -244,10 +244,7 @@
# Return a parsed Texinfo tree
sub gdt($$;$$)
{
- my $self = shift;
- my $message = shift;
- my $context = shift;
- my $type = shift;
+ my ($self, $message, $context, $type) = @_;
my $re = join '|', map { quotemeta $_ } keys %$context
if (defined($context) and ref($context));
@@ -385,13 +382,7 @@
print STDERR "GDT $translation_result\n";
}
- my $tree;
- # Right now this is not used anywhere.
- if ($type and $type eq 'translated_paragraph') {
- $tree = $parser->parse_texi_text($translation_result);
- } else {
- $tree = $parser->parse_texi_line($translation_result);
- }
+ my $tree = $parser->parse_texi_line($translation_result);
$tree = _substitute ($tree, $context);
return $tree;
}
@@ -528,11 +519,6 @@
that is returned after translation and substitution. The substitutions
may only be strings in that case.
-=item translated_paragraph
-
-In that case, the parsing of the Texinfo string is done in a
-context of a paragraph, not in the context of an inline text.
-
=back
For example in the following call, the string
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7835] gdt remove translated_paragraph case,
gavinsmith0123 <=