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

ox: Small fix

Browse source 
* lisp/ox.el (org-export--missing-definitions): Fix typo and remove
  useless comment
* testing/lisp/test-ox.el (test-org-export/footnotes): Add test.
This commit is contained in:
Nicolas Goaziou 2016-06-28 00:28:47 +02:00
parent f196fb3bed
commit 07de65e1ea
2 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ox.el
View file

@ -2669,14 +2669,12 @@ from tree."
(cond
((eq (org-element-type f) 'footnote-definition) f)
((eq (org-element-property :type f) 'standard) nil)
(t
;; Since we're only interested in footnote definitions
(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))))))))))
(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))))))))))
;; If a select tag is active, also ignore the section before the
;; first headline, if any.
(when selected
@ -2768,7 +2766,7 @@ a list of footnote definitions or in the widened buffer."
(if (eq (org-element-type d) 'footnote-definition) d
(let ((label (org-element-property :label d)))
(apply #'org-element-create
'footnote-definition `(:label d :post-blank 1)
'footnote-definition `(:label ,label :post-blank 1)
(org-element-contents d)))))
missing-definitions))))

9
testing/lisp/test-ox.el
View file

@ -2056,6 +2056,15 @@ Para2"
\[fn:2] Very out of scope
* Title
<point>Paragraph[fn:1]"
(narrow-to-region (point) (point-max))
(org-export-as (org-test-default-backend)))))
(should
(string-match
"D2"
(org-test-with-temp-text "
\[fn:1] Out of scope[fn:2:D2]
* Title
<point>Paragraph[fn:1]"
(narrow-to-region (point) (point-max))
(org-export-as (org-test-default-backend)))))