diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-04-20 11:12:44 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-04-20 11:12:44 +0200 |
commit | 8b18c50d4cfc78072c6306709976fa2b19ef6044 (patch) | |
tree | 1978241192d2315c9333217535670ab618c5bad9 | |
parent | 7d6309f132363266ce607eea87c04ba235e3d7d0 (diff) | |
download | org-mode-8b18c50d4cfc78072c6306709976fa2b19ef6044.tar.gz |
org-footnote: Fix positionning in HTML export without a footnote section
* lisp/org-footnote.el (org-footnote-normalize): Fix positionning in
HTML export without a footnote section.
-rw-r--r-- | lisp/org-footnote.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 9319e08..a9ba8d7 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -716,8 +716,8 @@ Additional note on `org-footnote-insert-pos-for-preprocessor': ((and org-footnote-section (eq major-mode 'org-mode)) (goto-char (point-min)) (if (re-search-forward - (concat "^\\*[ \t]+" (regexp-quote org-footnote-section) - "[ \t]*$") nil t) + (concat "^\\*[ \t]+" (regexp-quote org-footnote-section) + "[ \t]*$") nil t) (delete-region (match-beginning 0) (org-end-of-subtree t t))) ;; A new footnote section is inserted by default at the end of ;; the buffer. @@ -727,7 +727,14 @@ Additional note on `org-footnote-insert-pos-for-preprocessor': (unless (bolp) (newline))) ;; No footnote section set: Footnotes will be added at the end ;; of the section containing their first reference. - ((eq major-mode 'org-mode)) + ;; Nevertheless, in an export situation, set insertion point to + ;; `point-max' by default. + ((eq major-mode 'org-mode) + (when export-props + (goto-char (point-max)) + (skip-chars-backward " \r\t\n") + (forward-line) + (delete-region (point) (point-max)))) (t ;; Remove any left-over tag in the buffer, if one is set up. (when org-footnote-tag-for-non-org-mode-files |