tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-footnote-action: Handle nil context

Browse source 
* lisp/org-footnote.el (org-footnote-action): Check whether context is
  non-nil before trying to move to the end of the element.
This commit is contained in:
Kyle Meyer 2015-08-24 00:10:54 -04:00
parent cd1d623b85
commit 4ef2c0e439
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)))