diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-14 16:22:13 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-14 16:22:13 +0200 |
commit | 6a0454e4f053353a18687186e0fd93b9a6d78748 (patch) | |
tree | ce1ca2b335824a1c6090ed3a43e983e29a9dd105 | |
parent | 65ded0c7ed60db6e742a7f345fdb0b6355042536 (diff) | |
download | org-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.el | 7 |
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 |