From 07de65e1ea3eda43e6fa8bec84309e9464a09ab6 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Tue, 28 Jun 2016 00:28:47 +0200
Subject: [PATCH] ox: Small fix

* lisp/ox.el (org-export--missing-definitions): Fix typo and remove
  useless comment
* testing/lisp/test-ox.el (test-org-export/footnotes): Add test.
---
 lisp/ox.el              | 16 +++++++---------
 testing/lisp/test-ox.el |  9 +++++++++
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index e7b528c03..685fb35c7 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -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))))
 
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index 8177ea410..37443188e 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -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)))))