From 146faeeb961fd7b608746dac9c06c6d9602192fd Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 3 Sep 2009 08:14:45 +0200 Subject: [PATCH] Export: Remove footnote references from TOC lines --- lisp/ChangeLog | 3 +++ lisp/org-exp.el | 2 ++ 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 805368c76..39ea0f0a5 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-09-03 Carsten Dominik + * org-exp.el (org-export-cleanup-toc-line): Remove footnote + references from TOC lines. + * org.el (org-selected-window): New variable. * org-table.el (org-table-edit-formulas): Remember the selected diff --git a/lisp/org-exp.el b/lisp/org-exp.el index e990f1761..549eeab0f 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2807,6 +2807,8 @@ If yes remove the column and the special lines." (while (string-match org-bracket-link-regexp s) (setq s (replace-match (match-string (if (match-end 3) 3 1) s) t t s))) + (while (string-match "\\[\\([0-9]\\|fn:[^]]*\\)\\]" s) + (setq s (replace-match "" t t s))) s) (defun org-create-multibrace-regexp (left right n) -- 2.11.4.GIT