From f2b3fe7318d6006d868d765ac20160ca9fcd4545 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 29 Oct 2011 14:21:56 +0200 Subject: [PATCH] org-footnote: Don't store text-properties of footnote definitions * lisp/org-footnote.el (org-footnote-at-reference-p, org-footnote-at-definition-p): Don't store text-properties of footnote definitions. --- lisp/org-footnote.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 9e5218c07..7de155137 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -240,7 +240,8 @@ positions, and the definition, when inlined." (list label beg end ;; Definition: ensure this is an inline footnote first. (and (or (not label) (match-string 1)) - (org-trim (buffer-substring (match-end 0) (1- end))))))))) + (org-trim (buffer-substring-no-properties + (match-end 0) (1- end))))))))) (defun org-footnote-at-definition-p () "Is the cursor at a footnote definition? @@ -275,7 +276,8 @@ label, start, end and definition of the footnote otherwise." bound 'move) (progn (skip-chars-forward " \t\n") (point-at-bol))) (point)))) - (org-trim (buffer-substring (match-end 0) (point))))))))) + (org-trim (buffer-substring-no-properties + (match-end 0) (point))))))))) (defun org-footnote-get-next-reference (&optional label backward limit) "Return complete reference of the next footnote.