tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-odt.el: Declare vars and functions from htmlfontify

This commit is contained in:
Jambunathan K 2011-12-24 12:18:45 +05:30 committed by Bastien Guerry
parent d75585cc2e
commit f49108a654
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-odt.el
View File

@ -27,10 +27,7 @@
;;; Code:
(eval-when-compile
(require 'cl)
;; htmlfontify.el was introduce in Emacs 23.2
(when (>= (string-to-number emacs-version) 23.2)
(require 'htmlfontify)))
(require 'cl))
(require 'org-lparse)
(defgroup org-export-odt nil
@ -1195,6 +1192,10 @@ This style is much the same as that of \"OrgFixedWidthBlock\"
except that the foreground and background colors are set
according to the default face identified by the `htmlfontify'.")
(defvar hfy-optimisations)
(declare-function hfy-face-to-style "htmlfontify" (fn))
(declare-function hfy-face-or-def-to-name "htmlfontify" (fn))
(defun org-odt-hfy-face-to-css (fn)
"Create custom style for face FN.
When FN is the default face, use it's foreground and background
@ -1297,6 +1298,8 @@ value of `org-export-odt-fontify-srcblocks."
lines (funcall
(or (and org-export-odt-fontify-srcblocks
(or (featurep 'htmlfontify)
;; htmlfontify.el was introduced in Emacs 23.2
;; So load it with some caution
(require 'htmlfontify nil t))
(fboundp 'htmlfontify-string)
'org-odt-format-source-code-or-example-colored)