[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.120,1.121"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Mon Mar 6 21:35:32 UTC 2006
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv19118/lib/Locale/Po4a
Modified Files:
Man.pm
Log Message:
When a font modifier if followed by another font modifier (or .P, or .SH,
etc.), the first font must not be ignored. Inform the font stack with
set_font.
Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -d -r1.120 -r1.121
--- Man.pm 6 Mar 2006 21:22:25 -0000 1.120
+++ Man.pm 6 Mar 2006 21:35:30 -0000 1.121
@@ -588,7 +588,11 @@
if ($line =~ /^(\.[BI])\s*$/) {
if ( $l2 =~ /^[.'][\t ]*([BI]|BI|BR|IB|IR|RB|RI|SH|TP)[\t ]/
or $l2 =~ /^[.'][\t ]*([BI])$/) {
- # another font macro. Forget about the first one
+ my $font = $line;
+ $font =~ s/^\.([BI])\s*$/$1/;
+ # Register the new current font.
+ set_font($font);
+ # Now we can forget about the first one
$line = $l2;
$ref = $r2;
} elsif ($l2 =~ /^([.'][\t ]*(?:IP)[\t ]+"?)(.*)$/) {
More information about the Po4a-commits
mailing list