diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-29 14:21:56 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-29 14:21:56 +0200 |
commit | f2b3fe7318d6006d868d765ac20160ca9fcd4545 (patch) | |
tree | 1ae72504f4c3ab6df17fb8823a905ad0a3735905 | |
parent | b2408c00967a4ef60b00f572b838a7c4f4686a90 (diff) | |
download | org-mode-f2b3fe7318d6006d868d765ac20160ca9fcd4545.tar.gz |
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.
-rw-r--r-- | lisp/org-footnote.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 9e5218c..7de1551 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. |