From d5484ae3f50eac06abd381733d48fa7475331bdc Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 12 Apr 2014 16:17:13 +0200 Subject: [PATCH] test-ox: Tiny refactoring * testing/lisp/test-ox.el (test-org-export/expand-include): Tiny refactoring. --- testing/lisp/test-ox.el | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index d1fee1b42..858d38cda 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -868,11 +868,10 @@ Footnotes[fn:1], [fn:test] and [fn:inline:anonymous footnote]. (format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\"" file1 file2) (org-export-expand-include-keyword) - (let (unique-labels) - (org-element-map (org-element-parse-buffer) - 'footnote-reference - (lambda (ref) - (org-element-property :label ref)))))))))))))) + (org-element-map (org-element-parse-buffer) + 'footnote-reference + (lambda (ref) + (org-element-property :label ref))))))))))))) ;; Footnotes labels are not local to each include keyword. (should (= 3 @@ -887,11 +886,9 @@ Footnotes[fn:1], [fn:test] and [fn:inline:anonymous footnote]. (org-test-with-temp-text (format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\"" file file) (org-export-expand-include-keyword) - (let (unique-labels) - (org-element-map (org-element-parse-buffer) - 'footnote-reference - (lambda (ref) - (org-element-property :label ref))))))))))))) + (org-element-map (org-element-parse-buffer) + 'footnote-reference + (lambda (ref) (org-element-property :label ref)))))))))))) (ert-deftest test-org-export/expand-macro () "Test macro expansion in an Org buffer."