Run org-export-odt-preprocess-latex-fragments only if backend is odt

* contrib/lisp/org-odt.el
(org-export-odt-do-preprocess-latex-fragments): Renamed from
org-export-odt-preprocess-latex-fragments.
(org-export-odt-preprocess-latex-fragments): Check that
backend is odt. If yes, delegate to
org-export-odt-do-preprocess-latex-fragments.
This commit is contained in:
Jambunathan K 2011-08-28 01:48:25 +05:30
parent 3688deeb3f
commit 2adfdac23b
1 changed files with 5 additions and 1 deletions

View File

@ -1651,7 +1651,7 @@ visually."
(defvar org-lparse-latex-fragment-fallback) ; set by org-do-lparse
(defvar org-lparse-opt-plist) ; bound during org-do-lparse
(defun org-export-odt-preprocess-latex-fragments ()
(defun org-export-odt-do-preprocess-latex-fragments ()
"Convert LaTeX fragments to images."
(let* ((latex-frag-opt (plist-get org-lparse-opt-plist :LaTeX-fragments))
(latex-frag-opt-1 ; massage the options
@ -1673,6 +1673,10 @@ visually."
org-current-export-dir nil "Creating LaTeX image %s"
nil nil latex-frag-opt-1))))
(defun org-export-odt-preprocess-latex-fragments ()
(when (equal org-export-current-backend 'odt)
(org-export-odt-do-preprocess-latex-fragments)))
(defun org-export-odt-preprocess-label-references ()
(goto-char (point-min))
(let (label label-components category value pretty-label)