Thanks for the initial report and the patch. TRS-80 writes:
> Attached please find a very simple (one line) patch that I believe > should fix this issue. > > This patch is of course based on latest git (not my personal outdated > version) and also maint branch. I think I've got that right? Looks good to me. > Subject: [PATCH] org-footnote: fix inserting new footnote mangling drawers convention nit: s/fix/Fix/ (no need to resend) > * org-footnote.el (org-footnote-create-definition): Replace > `forward-line' with `org-end-of-meta-data' to skip over any > properties and/or drawers that may be present on the > `org-footnote-section' heading (default "Footnotes"). > > TINYCHANGE > --- > lisp/org-footnote.el | 2 +- > 1 file changed, 1 insertion(+), 1 deletion(-) I'm planning to squash the following test in when applying. Look okay to you? diff --git a/testing/lisp/test-org-footnote.el b/testing/lisp/test-org-footnote.el index eca24d315..50a430785 100644 --- a/testing/lisp/test-org-footnote.el +++ b/testing/lisp/test-org-footnote.el @@ -138,7 +138,20 @@ (ert-deftest test-org-footnote/new () (org-test-with-temp-text "Paragraph<point>\n# Local Variables:\n# foo: t\n# End:" (let ((org-footnote-section "Footnotes")) (org-footnote-new)) - (buffer-string))))) + (buffer-string)))) + (should + (equal "Para[fn:1] +* Footnotes +:properties: +:custom_id: id +:end: + +\[fn:1]" + (org-test-with-temp-text + "Para<point>\n* Footnotes\n:properties:\n:custom_id: id\n:end:" + (let ((org-footnote-section "Footnotes")) + (org-footnote-new)) + (org-trim (buffer-string)))))) (ert-deftest test-org-footnote/delete () "Test `org-footnote-delete' specifications."