[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.143,1.144"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv15989/lib/Locale/Po4a

Modified Files:
	Man.pm 
Log Message:
Fixes for the .IX macro.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -d -r1.143 -r1.144
--- Man.pm	3 Jun 2006 17:45:36 -0000	1.143
+++ Man.pm	3 Jun 2006 19:30:30 -0000	1.144
@@ -1408,7 +1408,7 @@
                 $elem =~ s/^3/B/;
                 $elem =~ s/^4/(BI/;
 
-            if ($elem =~ /^([1-4]|B|I|R|\(CW|\[\]|\[P\])(.*)$/s) {
+            if ($elem =~ /^([1-4]|B|I|R|\(CW|\[\]|\[P\]|L)(.*)$/s) {
                 # Each element should now start by a recognized font modifier
                 my $new_font = $1;
                 my $arg = $2;
@@ -1731,12 +1731,9 @@
 $macro{'DT'}=\&noarg;
 $macro{'PD'}=\&untranslated;
 
-#Index. Where's the definition?
-#.IX type content
-$macro{'IX'}=sub {
-    my $self=shift;
-    $self->pushmacro($_[0],$_[1],$self->t($_[2]));
-};
+# Indexing term (printed on standard error).
+# (ms macros)
+$macro{'IX'}=\&translate_each;
 
 ###
 ### groff macros