[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.141,1.142"

[Nicolas FRANCOIS]

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);