diff options
| author | Rasmus <rasmus@gmx.us> | 2017-08-29 10:07:08 +0200 |
|---|---|---|
| committer | Rasmus <rasmus@gmx.us> | 2017-08-29 10:13:31 +0200 |
| commit | 3ad8ca429bac5e1354881cf4411d6f41dab36b44 (patch) | |
| tree | 41d8dc789a212dc3b1e09f402714b09dc1462fc5 /lisp/org/ox.el | |
| parent | c1854b1d31e1b0a3a9e91ef41110a5fa77bedb31 (diff) | |
| download | emacs-3ad8ca429bac5e1354881cf4411d6f41dab36b44.tar.gz emacs-3ad8ca429bac5e1354881cf4411d6f41dab36b44.tar.bz2 emacs-3ad8ca429bac5e1354881cf4411d6f41dab36b44.zip | |
Update Org to v9.0.10
Please see etc/ORG-NEWS for major changes. Note, this is a bugfix
release.
Diffstat (limited to 'lisp/org/ox.el')
| -rw-r--r-- | lisp/org/ox.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/org/ox.el b/lisp/org/ox.el index f39a3952e76..7d2f3d1714a 100644 --- a/lisp/org/ox.el +++ b/lisp/org/ox.el @@ -2712,14 +2712,11 @@ from tree." (org-element-map data '(footnote-definition footnote-reference) (lambda (f) (cond - ((eq (org-element-type f) 'footnote-definition) f) - ((eq (org-element-property :type f) 'standard) nil) - (t (let ((label (org-element-property :label f))) - (when label ;Skip anonymous references. - (apply - #'org-element-create - 'footnote-definition `(:label ,label :post-blank 1) - (org-element-contents f)))))))))) + ((eq 'footnote-definition (org-element-type f)) f) + ((and (eq 'inline (org-element-property :type f)) + (org-element-property :label f)) + f) + (t nil)))))) ;; If a select tag is active, also ignore the section before the ;; first headline, if any. (when selected |