From a8d621c3da3888281f9ceb1ed95ec45122172499 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 16 Aug 2011 21:43:23 +0200 Subject: [PATCH] org-footnote: remove every footnote tag when normalizing non Org buffers * lisp/org-footnote.el (org-footnote-normalize): effectively remove any footnote tag in non Org buffers, as detailled in org-footnote-tag-for-non-org-mode-files doc-string. --- lisp/org-footnote.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index a23e1bee9..9e97822c8 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -709,13 +709,14 @@ Additional note on `org-footnote-insert-pos-for-preprocessor': (unless (bolp) (newline)) (setq ins-point (point)))) (t - (when (and (not (equal org-footnote-tag-for-non-org-mode-files "")) - (re-search-forward - (concat "^" (regexp-quote - org-footnote-tag-for-non-org-mode-files) - "[ \t]*$") - nil t)) - (replace-match "")) + ;; Remove any left-over tag in the buffer, if one is set up. + (when org-footnote-tag-for-non-org-mode-files + (let ((tag (concat "^" (regexp-quote + org-footnote-tag-for-non-org-mode-files) + "[ \t]*$"))) + (while (re-search-forward tag nil t) + (replace-match "") + (delete-region (point) (progn (forward-line) (point)))))) ;; In Message mode, ensure footnotes are inserted before the ;; signature. (let ((pt-max (if (and (derived-mode-p 'message-mode)