[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.120,1.121"

[Nicolas FRANCOIS]

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 ]+"?)(.*)$/) {