diff options
Diffstat (limited to 'source/ap/texinfo/texinfo.fix.unescaped.left.brace.diff')
| -rw-r--r-- | source/ap/texinfo/texinfo.fix.unescaped.left.brace.diff | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/source/ap/texinfo/texinfo.fix.unescaped.left.brace.diff b/source/ap/texinfo/texinfo.fix.unescaped.left.brace.diff new file mode 100644 index 000000000..84dacb3b3 --- /dev/null +++ b/source/ap/texinfo/texinfo.fix.unescaped.left.brace.diff @@ -0,0 +1,16 @@ +--- ./tp/Texinfo/Parser.pm.orig 2017-09-12 13:49:03.000000000 -0500 ++++ ./tp/Texinfo/Parser.pm 2018-06-27 13:14:33.982547765 -0500 +@@ -5478,11 +5478,11 @@ + } + } elsif ($command eq 'clickstyle') { + # REMACRO +- if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) { ++ if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*/) { + $args = ['@'.$1]; + $self->{'clickstyle'} = $1; + $remaining = $line; +- $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//; ++ $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*(\@(c|comment)((\@|\s+).*)?)?//; + $has_comment = 1 if (defined($4)); + } else { + $self->line_error (sprintf($self->__( |