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