mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 23:17:49 +00:00
Code Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Kyle Meyer 2015-08-24 00:12:43 -04:00
parent cf6d936701 4ef2c0e439
commit 5bfdfc5df7
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-footnote.el
View file

@ -662,11 +662,12 @@ offer additional commands in a menu."
(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)))
((and context
(> (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)))