forked from mirrors/org-mode
Footnotes: Treat inline tasks as text
Reported by Matt Lundin
This commit is contained in:
parent
51ad548037
commit
0b474a71d0
|
@ -322,8 +322,18 @@ Org-mode exporters.
|
||||||
When SORT-ONLY is set, only sort the footnote definitions into the
|
When SORT-ONLY is set, only sort the footnote definitions into the
|
||||||
referenced sequence."
|
referenced sequence."
|
||||||
;; This is based on Paul's function, but rewritten.
|
;; This is based on Paul's function, but rewritten.
|
||||||
(let ((count 0) ref def idef ref-table beg beg1 marker a before
|
(let* ((limit-level
|
||||||
ins-point)
|
(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
|
(save-excursion
|
||||||
;; Now find footnote references, and extract the definitions
|
;; Now find footnote references, and extract the definitions
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
|
Loading…
Reference in New Issue