diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-24 08:10:56 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-24 08:11:07 +0200 |
| commit | 711b7d7d3a9d476fab0f5031dbcca503b67182a1 (patch) | |
| tree | 75c9266d0d7bfe5402bec6cfedd91b54f97d1698 | |
| parent | 767f5188eef99bd47a65ff0d7199f67ee3c52fbb (diff) | |
| download | org-mode-711b7d7d3a9d476fab0f5031dbcca503b67182a1.tar.gz | |
org-footnote: Remove text-properties from label
* lisp/org-footnote.el (org-footnote-at-reference-p,
org-footnote-at-definition-p): Remove text-properties from label.
| -rw-r--r-- | lisp/org-footnote.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 622e4fc..9e5218c 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -209,9 +209,11 @@ positions, and the definition, when inlined." (or (eq (char-before (match-end 0)) 58) (/= (match-beginning 0) (point-at-bol)))) (let* ((beg (match-beginning 0)) - (label (or (match-string 2) (match-string 3) + (label (or (org-match-string-no-properties 2) + (org-match-string-no-properties 3) ;; Anonymous footnotes don't have labels - (and (match-string 1) (concat "fn:" (match-string 1))))) + (and (match-string 1) + (concat "fn:" (org-match-string-no-properties 1))))) ;; Inline footnotes don't end at (match-end 0) as ;; `org-footnote-re' stops just after the second colon. ;; Find the real ending with `scan-sexps', so Org doesn't @@ -257,7 +259,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 1) + (list (org-match-string-no-properties 1) (match-beginning 0) (save-match-data ;; In a message, limit search to signature. |