summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJambunathan K <kjambunathan@gmail.com>2011-02-19 22:26:10 +0530
committerBastien Guerry <bzg@altern.org>2011-02-28 12:19:35 +0100
commit0135cb9c33c89593ced16cf4a5c5daf155b087c9 (patch)
tree3826ea2df17666725955e0ed76ef5815075d1cf3
parent83b782c916cc7a7309564bed9e727d1fe610b496 (diff)
downloadorg-mode-0135cb9c33c89593ced16cf4a5c5daf155b087c9.tar.gz
org-export-preprocess-string: Use backend var
-rw-r--r--lisp/org-exp.el22
1 files changed, 5 insertions, 17 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 964e18e..f950183 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -1197,23 +1197,11 @@ on this string to produce the exported version."
;; Another hook
(run-hooks 'org-export-preprocess-before-backend-specifics-hook)
- ;; LaTeX-specific preprocessing
- (when (eq backend 'latex)
- (require 'org-latex nil)
- (org-export-latex-preprocess parameters))
-
- ;; ASCII-specific preprocessing
- (when (eq backend 'ascii)
- (org-export-ascii-preprocess parameters))
-
- ;; HTML-specific preprocessing
- (when (eq backend 'html)
- (org-export-html-preprocess parameters))
-
- ;; DocBook-specific preprocessing
- (when (eq backend 'docbook)
- (require 'org-docbook nil)
- (org-export-docbook-preprocess parameters))
+ ;; Backend-specific preprocessing
+ (let* ((backend-name (symbol-name backend))
+ (f (intern (format "org-export-%s-preprocess" backend-name))))
+ (require (intern (concat "org-" backend-name)) nil)
+ (funcall f parameters))
;; Remove or replace comments
(org-export-handle-comments (plist-get parameters :comments))