Browse Source

org-odt.el: Fix byte-compiler warnings

Jambunathan K 13 years ago
parent
commit
cfe467c01d
1 changed files with 6 additions and 4 deletions
  1. 6 4
      contrib/lisp/org-odt.el

+ 6 - 4
contrib/lisp/org-odt.el

@@ -983,10 +983,11 @@ turned on."
 	  (lambda (style text-block text-id text-begins-block-p)
 	    (insert (format "<text:span text:style-name=\"%s\">" style))))
 	 (hfy-end-span-handler (lambda nil (insert "</text:span>"))))
-    (mapconcat
-     (lambda (line)
-       (org-odt-format-stylized-paragraph 'src (htmlfontify-string line)))
-     (org-split-string lines "[\r\n]") "\n")))
+    (when (fboundp 'htmlfontify-string)
+      (mapconcat
+       (lambda (line)
+	 (org-odt-format-stylized-paragraph 'src (htmlfontify-string line)))
+       (org-split-string lines "[\r\n]") "\n"))))
 
 (defun org-odt-format-source-code-or-example (lines lang caption textareap
 						    cols rows num cont
@@ -1481,6 +1482,7 @@ visually."
   :group 'org-export-odt
   :type 'boolean)
 
+(defvar hfy-user-sheet-assoc)		; bound during org-do-lparse
 (defun org-odt-save-as-outfile (target opt-plist)
   ;; write meta file
   (org-odt-update-meta-file opt-plist)