summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-10-29 14:21:56 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-10-29 14:21:56 +0200
commitf2b3fe7318d6006d868d765ac20160ca9fcd4545 (patch)
tree1ae72504f4c3ab6df17fb8823a905ad0a3735905
parentb2408c00967a4ef60b00f572b838a7c4f4686a90 (diff)
downloadorg-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.el6
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.