org-footnote: find correct reference when two footnotes are side-by-side

* lisp/org-footnote.el (org-footnote-at-reference-p): first check if
  point is at the beginning of a footnote. Indeed `org-in-regexp'
  first checks backwards and might find an incorrect footnote if they
  are side-by-side.
This commit is contained in:
Nicolas Goaziou 2011-06-30 10:59:54 +02:00
parent f0bbfe50aa
commit bab6c5bf5a
1 changed files with 2 additions and 1 deletions

View File

@ -161,7 +161,8 @@ If so, return an list containing its label, beginning and ending
positions, and the definition, if local."
(when (and (not (or (org-in-commented-line)
(org-in-verbatim-emphasis)))
(or (org-in-regexp org-footnote-re)
(or (looking-at org-footnote-re)
(org-in-regexp org-footnote-re)
(save-excursion (re-search-backward org-footnote-re nil t)))
;; A footnote reference cannot start at bol.
(/= (match-beginning 0) (point-at-bol)))