better support for well-formed XHTML

diff --git a/Doc/perl/ltxmarkup.perl b/Doc/perl/ltxmarkup.perl
index 290e79b4536476eaab67a1a429ed04776f84ac71..1a0f7e193131428eaeec1bff48500e063b94eefe 100644 (file)
--- a/Doc/perl/ltxmarkup.perl
+++ b/Doc/perl/ltxmarkup.perl
@@ -45,10 +45,10 @@ sub do_env_macrodesc{
     my $params = ltx_process_params(ltx_next_argument());
     return "\n<dl class='macrodesc'>"
          . "\n<dt><b><tt class='macro'>&#92;$macro</tt></b>"
-         . "\n    $params"
+         . "\n    $params</dt>"
         . "\n<dd>"
         . $_
-        . "</dl>";
+        . '</dd></dl>';
 }
 
 sub do_env_envdesc{
@@ -58,10 +58,10 @@ sub do_env_envdesc{
     return "\n<dl class='envdesc'>"
          . "\n<dt><tt>&#92;begin{<b class='environment'>$env</b>}</tt>"
          . "\n    $params"
-         . "\n<br /><tt>&#92;end{<b class='environment'>$env</b>}</tt>"
+         . "\n<br /><tt>&#92;end{<b class='environment'>$env</b>}</tt></dt>"
         . "\n<dd>"
         . $_
-        . "</dl>";
+        . '</dd></dl>';
 }
 
 1;                             # Must end with this, because Perl is bogus.