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

[Bastien Guerry]

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 <address@hidden>
> X-Patchwork-Id: 700
> Message-Id: <address@hidden>
> To: emacs-orgmode <address@hidden>
> 
> 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)
>