Browse Source

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.
Jambunathan K 13 years ago
parent
commit
2adfdac23b
1 changed files with 5 additions and 1 deletions
  1. 5 1
      contrib/lisp/org-odt.el

+ 5 - 1
contrib/lisp/org-odt.el

@@ -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)