From 0b474a71d0bdd6c5d3c5fb4d92cac58d92cb37af Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 21 Jun 2009 08:29:35 +0200 Subject: [PATCH] Footnotes: Treat inline tasks as text Reported by Matt Lundin --- lisp/org-footnote.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 63a6e5863..44dfb6027 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -322,8 +322,18 @@ Org-mode exporters. When SORT-ONLY is set, only sort the footnote definitions into the referenced sequence." ;; This is based on Paul's function, but rewritten. - (let ((count 0) ref def idef ref-table beg beg1 marker a before - ins-point) + (let* ((limit-level + (and (boundp 'org-inlinetask-min-level) + org-inlinetask-min-level + (1- org-inlinetask-min-level))) + (nstars (and limit-level + (if org-odd-levels-only + (and limit-level (1- (* limit-level 2))) + limit-level))) + (outline-regexp + (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ "))) + (count 0) + ref def idef ref-table beg beg1 marker a before ins-point) (save-excursion ;; Now find footnote references, and extract the definitions (goto-char (point-min))