Jelajahi Sumber

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.
Nicolas Goaziou 13 tahun lalu
induk
melakukan
60b84d7f4b
1 mengubah file dengan 10 tambahan dan 3 penghapusan
  1. 10 3
      lisp/org-footnote.el

+ 10 - 3
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