Browse Source

org-footnote.el: fix a few compiler warnings.

Thanks to Achim Gratz for catching them.
Bastien Guerry 14 years ago
parent
commit
71eff05694
1 changed files with 12 additions and 9 deletions
  1. 12 9
      lisp/org-footnote.el

+ 12 - 9
lisp/org-footnote.el

@@ -49,7 +49,7 @@
 (declare-function org-in-verbatim-emphasis "org" ())
 (declare-function org-in-verbatim-emphasis "org" ())
 (declare-function org-inside-latex-macro-p "org" ())
 (declare-function org-inside-latex-macro-p "org" ())
 (declare-function org-id-uuid "org" ())
 (declare-function org-id-uuid "org" ())
-(declare-function org-fill-paragraph "org" (justify))
+(declare-function org-fill-paragraph "org" (&optional justify))
 (defvar org-odd-levels-only) ;; defined in org.el
 (defvar org-odd-levels-only) ;; defined in org.el
 (defvar message-signature-separator) ;; defined in message.el
 (defvar message-signature-separator) ;; defined in message.el
 
 
@@ -326,14 +326,14 @@ If no footnote is found, return nil."
 If WITH-DEFS is non-nil, also associate the definition to each
 If WITH-DEFS is non-nil, also associate the definition to each
 label.  The function will then return an alist whose key is label
 label.  The function will then return an alist whose key is label
 and value definition."
 and value definition."
-  (let (rtn
-	(push-to-rtn
-	 (function
-	  ;; Depending on WITH-DEFS, store label or (label . def) of
-	  ;; footnote reference/definition given as argument in RTN.
-	  (lambda (el)
-	    (let ((lbl (car el)))
-	      (push (if with-defs (cons lbl (nth 3 el)) lbl) rtn))))))
+  (let* (rtn
+	 (push-to-rtn
+	  (function
+	   ;; Depending on WITH-DEFS, store label or (label . def) of
+	   ;; footnote reference/definition given as argument in RTN.
+	   (lambda (el)
+	     (let ((lbl (car el)))
+	       (push (if with-defs (cons lbl (nth 3 el)) lbl) rtn))))))
     (save-excursion
     (save-excursion
       (save-restriction
       (save-restriction
 	(widen)
 	(widen)
@@ -490,6 +490,9 @@ With prefix arg SPECIAL, offer additional commands in a menu."
 (defvar org-footnote-insert-pos-for-preprocessor 'point-max
 (defvar org-footnote-insert-pos-for-preprocessor 'point-max
   "See `org-footnote-normalize'.")
   "See `org-footnote-normalize'.")
 
 
+(defvar org-export-footnotes-seen nil) ; silence byte-compiler
+(defvar org-export-footnotes-data nil) ; silence byte-compiler
+
 ;;;###autoload
 ;;;###autoload
 (defun org-footnote-normalize (&optional sort-only pre-process-p)
 (defun org-footnote-normalize (&optional sort-only pre-process-p)
   "Collect the footnotes in various formats and normalize them.
   "Collect the footnotes in various formats and normalize them.