tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2011-08-16 21:43:23 +02:00
parent baf7dde28e
commit a8d621c3da
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org-footnote.el
View File

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