|
@@ -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
|