[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.141,1.142"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Jun 3 00:39:29 UTC 2006
- Previous message: [Po4a-commits] "po4a changelog,1.16,1.17"
- Next message: [Po4a-commits] "po4a/t/data-23 escapes1, 1.1, 1.2 escapes1.it, 1.2,
1.3 escapes1.it.po, 1.1, 1.2 escapes1.pot, 1.1, 1.2"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv6768/lib/Locale/Po4a
Modified Files:
Man.pm
Log Message:
Allow some more \c escapes (still not supported everywhere).
Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.141
retrieving revision 1.142
diff -u -d -r1.141 -r1.142
--- Man.pm 3 Jun 2006 00:10:58 -0000 1.141
+++ Man.pm 3 Jun 2006 00:39:27 -0000 1.142
@@ -671,6 +671,18 @@
$line =~ s/\n$//;
$line = "$insert_font$line\\fR\n";
}
+
+ if ($line =~ /^(.*)\\c\s*\\fR\n/) {
+ my $begin = $1;
+
+ my ($l2,$r2)=$self->SUPER::shiftline();
+ if ($l2 =~ /^[.' ]/) {
+ $self->SUPER::unshiftline($l2,$r2);
+ } else {
+ $l2 =~ s/\s*$//s;
+ $line = "$begin\\fR$l2\n";
+ }
+ }
}
return ($line,$ref);
- Previous message: [Po4a-commits] "po4a changelog,1.16,1.17"
- Next message: [Po4a-commits] "po4a/t/data-23 escapes1, 1.1, 1.2 escapes1.it, 1.2,
1.3 escapes1.it.po, 1.1, 1.2 escapes1.pot, 1.1, 1.2"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Po4a-commits
mailing list