diff options
author | Jambunathan K <kjambunathan@gmail.com> | 2011-02-19 22:26:10 +0530 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-02-28 12:19:35 +0100 |
commit | 0135cb9c33c89593ced16cf4a5c5daf155b087c9 (patch) | |
tree | 3826ea2df17666725955e0ed76ef5815075d1cf3 | |
parent | 83b782c916cc7a7309564bed9e727d1fe610b496 (diff) | |
download | org-mode-0135cb9c33c89593ced16cf4a5c5daf155b087c9.tar.gz |
org-export-preprocess-string: Use backend var
-rw-r--r-- | lisp/org-exp.el | 22 |
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)) |