From d263bf1095e4d33da53ac2f813d25ef353da8bea Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 12 Jan 2007 20:57:48 +0000
Subject: [PATCH] (TocRule): Make it compatible with creole.pl.

---
 modules/toc.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/toc.pl b/modules/toc.pl
index cf833f82..59734a84 100644
--- a/modules/toc.pl
+++ b/modules/toc.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: toc.pl,v 1.37 2006/12/27 22:06:30 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: toc.pl,v 1.38 2007/01/12 20:57:48 as Exp $</p>';
 
 push(@MyRules, \&TocRule);
 
@@ -67,9 +67,9 @@ sub TocRule {
 	       || InElement('h6'))
 	   && m/\G[ \t]*=+\n?/cg) {
     return CloseHtmlEnvironments() . AddHtmlEnvironment('p');
-  } elsif ($bol && defined(&UsemodRule)
+  } elsif ($bol && (defined(&UsemodRule) || defined(&CreoleRule))
 	   && !$UseModMarkupInTitles
-	   && m/\G(\s*\n)*(\=+)[ \t]*(.+?)[ \t]*(=+)[ \t]*\n?/cg) {
+	   && m/\G(\s*\n)*(\=+)[ \t]*(.+?)[ \t]*(=*)[ \t]*(\n|$)/cg) {
     my $depth = length($2);
     $depth = 6 if $depth > 6;
     $depth = 2 if $depth < 2;