[Accepted] Fix html export of footnotes with lists, tables, quotes, etc.

[Bastien Guerry <bzg@altern.org>]

Patch 700 (http://patchwork.newartisans.com/patch/700/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3CAANLkTi%3DbFiJvyJZy4vsEvP%2BbMDastWXSB6u72LDPLVqs%40mail.gmail.com%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [O] Fix html export of footnotes with lists, tables, quotes, etc.
> Date: Fri, 18 Mar 2011 16:52:05 -0000
> From: Puneeth Chaganti <punchagan@gmail.com>
> X-Patchwork-Id: 700
> Message-Id: <AANLkTi=bFiJvyJZy4vsEvP+bMDastWXSB6u72LDPLVqs@mail.gmail.com>
> To: emacs-orgmode <emacs-orgmode@gnu.org>
> 
> Hi,
> 
> Attached is a patch that allows having lists, tables, blockquotes and
> other org blocks in footnotes.  Source code blocks still don't work.
> 
> 
> diff --git a/lisp/org-html.el b/lisp/org-html.el
> index c6f26b5..11ef9ef 100644
> --- a/lisp/org-html.el
> +++ b/lisp/org-html.el
> @@ -1690,9 +1690,12 @@ lang=\"%s\" xml:lang=\"%s\">
>  
>        (save-excursion
>  	(goto-char (point-min))
> -	(while (re-search-forward "<p class=\"footnote\">[^\000]*?\\(</p>\\|\\'\\)" nil t)
> -	  (push (match-string 0) footnotes)
> -	  (replace-match "" t t)))
> +	(while (re-search-forward 
> +		"\\(\\(<p class=\"footnote\">\\)[^\000]*?\\)\\(\\(\\2\\)\\|\\'\\)" 
> +		nil t)
> +	  (push (match-string 1) footnotes)
> +	  (replace-match "\\4" t nil)
> +	  (goto-char (match-beginning 0))))
>        (when footnotes
>  	(insert (format org-export-html-footnotes-section
>  			(nth 4 lang-words)
>