[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.88,1.89"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Register the environment provided by the -o verbatim or -o no_wrap option,
if the environment does not already exist.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- TeX.pm	3 Aug 2006 22:30:31 -0000	1.88
+++ TeX.pm	16 Aug 2006 17:28:09 -0000	1.89
@@ -134,6 +134,9 @@
 Note that there is a difference between verbatim and no_wrap environments.
 There is no command and comments analysis in verbatim blocks.
 
+If this environment was not already registered, po4a will consider that
+this environment does not take any arguments.
+
 =item exclude_include
 
 Colon-separated list of files that should not be included by \input and
@@ -150,6 +153,9 @@
 
 Coma-separated list of environments which should be taken as verbatim.
 
+If this environment was not already registered, po4a will consider that
+this environment does not take any arguments.
+
 =back
 
 Using these options permits to override the behaviour of the commands defined
@@ -1567,6 +1573,8 @@
     $RE_VERBATIM = "\\\\begin\\{(?:".
                    join("|", split(/ /, $verbatim_environments)).
                    ")\\*?\\}";
+    register_generic_environment("$env,")
+        unless (defined $environments{$env});
 }
 
 ####################################
@@ -1611,6 +1619,8 @@
     if ($options{'no_wrap'}) {
         foreach (split(/,/, $options{'no_wrap'})) {
             $no_wrap_environments .= " $_";
+            register_generic_environment("$env,")
+                unless (defined $environments{$env});
         }
     }