summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-14 16:22:13 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-14 16:22:13 +0200
commit6a0454e4f053353a18687186e0fd93b9a6d78748 (patch)
treece1ca2b335824a1c6090ed3a43e983e29a9dd105
parent65ded0c7ed60db6e742a7f345fdb0b6355042536 (diff)
downloadorg-mode-6a0454e4f053353a18687186e0fd93b9a6d78748.tar.gz
org-footnote: Fix consistency between footnotes and links
* lisp/org-footnote.el (org-footnote-action): Mimic `org-open-at-point' behavior for consistency.
-rw-r--r--lisp/org-footnote.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el
index fd48182..c3af965 100644
--- a/lisp/org-footnote.el
+++ b/lisp/org-footnote.el
@@ -661,6 +661,13 @@ offer additional commands in a menu."
(let* ((context (and (not special) (org-element-context)))
(type (org-element-type context)))
(cond
+ ;; On white space after element, insert a new footnote.
+ ((> (point)
+ (save-excursion
+ (goto-char (org-element-property :end context))
+ (skip-chars-backward " \t")
+ (point)))
+ (org-footnote-new))
((eq type 'footnote-reference)
(let ((label (org-element-property :label context)))
(cond