From d053a72066ce099bc714833aff4b6cffaf3c11b6 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 16 Aug 2011 15:31:20 +0200 Subject: [PATCH] org-footnote: tweak footnote definition regexp * lisp/org-footnote.el (org-footnote-definition-re): remove an useless group. (org-footnote-at-definition-p): reflect removal of the group. --- lisp/org-footnote.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index b69bfbada..e8ae84e01 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -80,7 +80,7 @@ "Regular expression for matching footnotes.") (defconst org-footnote-definition-re - (org-re "^\\(\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]\\)") + (org-re "^\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]") "Regular expression matching the definition of a footnote.") (defvar org-footnote-forbidden-blocks '("example" "verse" "src" "ascii" "beamer" @@ -251,7 +251,7 @@ label, start, end and definition of the footnote otherwise." "\\|^[ \t]*$") nil t)))) (when (re-search-backward org-footnote-definition-re lim t) (end-of-line) - (list (match-string 2) + (list (match-string 1) (match-beginning 0) (save-match-data ;; In a message, limit search to signature.