ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-odt.el: Fix byte-compiler warnings

This commit is contained in:
Jambunathan K 2011-08-27 14:20:47 +05:30
parent 63ce11b1ca
commit cfe467c01d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-odt.el
View File

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