ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-footnote-action: Handle nil context 

* 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)))