temporary fix for @enumerate 10 (Closes: #709673)
Norbert Preining
10 years ago
0 | |
texinfo (5.1.dfsg.1-4) UNRELEASED; urgency=low
|
|
0 |
texinfo (5.1.dfsg.1-4) unstable; urgency=low
|
1 | 1 |
|
2 | 2 |
* pre-depend on dpkg >= 1.16.1 (for interest-nowait) (Closes: #709443)
|
3 | |
|
4 | |
-- Norbert Preining <preining@debian.org> Thu, 23 May 2013 21:32:42 +0900
|
|
3 |
* temporary fix for @enumerate 10 (Closes: #709673)
|
|
4 |
|
|
5 |
-- Norbert Preining <preining@debian.org> Thu, 11 Jul 2013 16:37:26 +0900
|
5 | 6 |
|
6 | 7 |
texinfo (5.1.dfsg.1-3) unstable; urgency=low
|
7 | 8 |
|
|
0 |
Fix continuation of @enumerate with numbers >= 10
|
|
1 |
Bug report #709673
|
|
2 |
patch is discussed on texinfo ml, but not decided by now
|
|
3 |
---
|
|
4 |
tp/Texinfo/Common.pm | 2 +-
|
|
5 |
tp/Texinfo/Parser.pm | 3 ++-
|
|
6 |
2 files changed, 3 insertions(+), 2 deletions(-)
|
|
7 |
|
|
8 |
--- texinfo.orig/tp/Texinfo/Common.pm
|
|
9 |
+++ texinfo/tp/Texinfo/Common.pm
|
|
10 |
@@ -1382,7 +1382,7 @@
|
|
11 |
my $specification = shift;
|
|
12 |
my $number = shift;
|
|
13 |
|
|
14 |
- if ($specification =~ /^[0-9]$/) {
|
|
15 |
+ if ($specification =~ /^[0-9]+$/) {
|
|
16 |
return $specification + $number -1;
|
|
17 |
}
|
|
18 |
|
|
19 |
--- texinfo.orig/tp/Texinfo/Parser.pm
|
|
20 |
+++ texinfo/tp/Texinfo/Parser.pm
|
|
21 |
@@ -2973,7 +2973,8 @@
|
|
22 |
$current->{'cmdname'});
|
|
23 |
}
|
|
24 |
my $arg = $current->{'extra'}->{'block_command_line_contents'}->[0]->[0];
|
|
25 |
- if (!defined($arg->{'text'}) or $arg->{'text'} !~ /^[[:alnum:]]$/) {
|
|
26 |
+ if (!defined($arg->{'text'}) or ($arg->{'text'} !~ /^[[:alnum:]]$/ and
|
|
27 |
+ $arg->{'text'} !~ /^[0-9]+$/)) {
|
|
28 |
$self->_command_error($current, $line_nr,
|
|
29 |
$self->__("bad argument to \@%s"),
|
|
30 |
$current->{'cmdname'});
|
2 | 2 |
numerical-signal-names
|
3 | 3 |
info_universal_argument
|
4 | 4 |
dont_build_info
|
|
5 |
maybe-upstream-fix-itemize-start
|