[Po4a-commits] r2567 - /trunk/lib/Locale/Po4a/Man.pm

[barbier at users.alioth.debian.org]

Author: barbier
Date: Sat Sep  8 19:30:31 2012
New Revision: 2567

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2567
Log:
Man.pm: Add missing macros used by several NetBSD manual pages

  %I %U
  Brc Bro
  Lp Lk

Report and patch (slightly edited) by Kiwamu Okabe, thanks!
See http://bugs.debian.org/664741

Modified:
    trunk/lib/Locale/Po4a/Man.pm

Modified: trunk/lib/Locale/Po4a/Man.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Man.pm?rev=2567&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Man.pm (original)
+++ trunk/lib/Locale/Po4a/Man.pm Sat Sep  8 19:30:31 2012
@@ -2407,6 +2407,8 @@
     $macro{'Ss'}=\&translate_mdoc;
     # .Pp   Paragraph Break.  Vertical space (one line).
     $macro{'Pp'}=\&noarg;
+    # .Lp   Same as .Pp
+    $macro{'Lp'}=\&noarg;
     # .D1   (D-one) Display-one Indent and display one text line.
     $macro{'D1'}=\&translate_mdoc;
     # .Dl   (D-ell) Display-one literal.
@@ -2427,6 +2429,8 @@
     # FIXME: Maybe we could extract other modifiers
     #        as in .It Fl l Ar num
     $macro{'It'}=\&translate_mdoc;
+    # .Lk   html link
+    $macro{'Lk'}=\&untranslated;
 
     # Manual Domain Macros
     # ====================
@@ -2440,8 +2444,8 @@
 
     # General Text Domain
     # ===================
-    foreach (qw(%A %B %C %D %J %N %O %P %R %T %V
-                Ac Ao Ap Aq At Bc Bf Bo Bq Bx Db Dc Do Dq Ec Ef Em Eo Fx No Ns
+    foreach (qw(%A %B %C %D %I %J %N %O %P %Q %R %T %U %V
+                Ac Ao Ap Aq At Bc Bf Bo Bq Brc Bro Brq Bx Db Dc Do Dq Ec Ef Em Eo Eq Fx No Ns
                 Pc Pf Po Pq Qc Ql Qo Qq Re Rs Rv Sc So Sq Sm Sx Sy Tn Ux Xc Xo)) {
         $inline{$_} = 1;
     }
@@ -2477,10 +2481,6 @@
     $macro{'In'} = \&translate_mdoc;
     # NetBSD Macro
     $inline{'Nx'} = 1;
-    # Curly brackets
-    $inline{'Brq'} = 1;
-    # Corporate name
-    $inline{'%Q'} = 1;
     # Math symbol
     $inline{'Ms'} = 1;
     # Prints 'under development'