diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-05 20:42:15 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-05 20:42:15 +0200 |
commit | 301b3450fedad4b27fb797ef806956ee37a54221 (patch) | |
tree | 08438cea4923ca642b55f70baadfebfec0b66a98 | |
parent | de0fcdffa48da8baf57a612f2ce032d8737e6525 (diff) | |
download | org-mode-301b3450fedad4b27fb797ef806956ee37a54221.tar.gz |
org-exp: remove tasks before normalizing footnotes
* lisp/org-exp.el (org-export-preprocess-string): if the last subtree
is a task, footnotes may be removed along with the subtree. This
patch ensures footnotes are put at the end of the buffer after the
subtree has been removed.
-rw-r--r-- | lisp/org-exp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index a00a71f..b561eaf 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -1138,13 +1138,13 @@ on this string to produce the exported version." (plist-get parameters :exclude-tags)) (run-hooks 'org-export-preprocess-after-tree-selection-hook) + ;; Get rid of tasks, depending on configuration + (org-export-remove-tasks (plist-get parameters :tasks)) + ;; Normalize footnotes (when (plist-get parameters :footnotes) (org-footnote-normalize nil 'pre-process-p)) - ;; Get rid of tasks, depending on configuration - (org-export-remove-tasks (plist-get parameters :tasks)) - ;; Export code blocks (org-export-blocks-preprocess) |