mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 01:49:04 +00:00
Code Releases Activity

org-export-preprocess-string: Use backend var

Browse source
This commit is contained in:
Jambunathan K 2011-02-19 22:26:10 +05:30 committed by Bastien Guerry
parent 83b782c916
commit 0135cb9c33
1 changed files with 5 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/org-exp.el
View file

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