浏览代码

org-e-latex: Silence byte-compiler

Nicolas Goaziou 13 年之前
父节点
当前提交
49f0202516
共有 1 个文件被更改,包括 16 次插入15 次删除
  1. 16 15
      EXPERIMENTAL/org-e-latex.el

+ 16 - 15
EXPERIMENTAL/org-e-latex.el

@@ -1045,21 +1045,22 @@ CONTENTS is nil.  INFO is a plist holding contextual information."
 	;; Retrieve all footnote references within the footnote and
 	;; Retrieve all footnote references within the footnote and
 	;; add their definition after it, since LaTeX doesn't support
 	;; add their definition after it, since LaTeX doesn't support
 	;; them inside.
 	;; them inside.
-	(let (all-refs
-	      (search-refs
-	       (function
-		(lambda (data)
-		  ;; Return a list of all footnote references in DATA.
-		  (org-element-map
-		   data 'footnote-reference
-		   (lambda (ref)
-		     (when (org-export-footnote-first-reference-p ref info)
-		       (push ref all-refs)
-		       (when (eq (org-element-property :type ref) 'standard)
-			 (funcall
-			  search-refs
-			  (org-export-get-footnote-definition ref info)))))
-		   info) (reverse all-refs)))))
+	(let* (all-refs
+	       search-refs		; for byte-compiler
+	       (search-refs
+		(function
+		 (lambda (data)
+		   ;; Return a list of all footnote references in DATA.
+		   (org-element-map
+		    data 'footnote-reference
+		    (lambda (ref)
+		      (when (org-export-footnote-first-reference-p ref info)
+			(push ref all-refs)
+			(when (eq (org-element-property :type ref) 'standard)
+			  (funcall
+			   search-refs
+			   (org-export-get-footnote-definition ref info)))))
+		    info) (reverse all-refs)))))
 	  (mapconcat
 	  (mapconcat
 	   (lambda (ref)
 	   (lambda (ref)
 	     (format
 	     (format