[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.83,1.84"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Mon May 15 15:54:01 UTC 2006
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv10352/lib/Locale/Po4a
Modified Files:
TeX.pm
Log Message:
Use the ESCAPOE variable instead of '\'.
This will help writing the Texinfo module.
Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- TeX.pm 6 Mar 2006 23:05:53 -0000 1.83
+++ TeX.pm 15 May 2006 15:53:59 -0000 1.84
@@ -625,8 +625,8 @@
}
# verbatim blocks.
# Buffers starting by \end{verbatim} are handled after.
- if (in_verbatim(@env) and $buffer !~ m/^\n?\\end\{$env[-1]\*?\}/) {
- if($buffer =~ m/^(.*?)(\n?\\end\{$env[-1]\*?\}.*)$/s) {
+ if (in_verbatim(@env) and $buffer !~ m/^\n?\Q$ESCAPE\Eend\{$env[-1]\*?\}/) {
+ if($buffer =~ m/^(.*?)(\n?\Q$ESCAPE\Eend\{$env[-1]\*?\}.*)$/s) {
# end of a verbatim block
my ($begin, $end) = ($1?$1:"", $2);
my ($t1, $t2) = ("", "");
@@ -1132,7 +1132,7 @@
# environment contains an un-closed bracket)
if ( ($closed and ($line =~ /^\s*$/ or
$line =~ /^\s*$RE_VERBATIM\s*$/))
- or (in_verbatim(@env) and $line =~ /^\s*\\end{$env[-1]}\s*$/)
+ or (in_verbatim(@env) and $line =~ /^\s*\Q$ESCAPE\Eend{$env[-1]}\s*$/)
) {
# An empty line. This indicates the end of the current
# paragraph.
More information about the Po4a-commits
mailing list