org-export: Fix template for derived back-ends

* contrib/lisp/org-export.el (org-export-as): Fix template for derived
  back-ends.
This commit is contained in:
Nicolas Goaziou 2012-06-12 13:48:19 +02:00
parent 68a595ce9d
commit eb69035d5e
1 changed files with 2 additions and 1 deletions

View File

@ -2346,7 +2346,8 @@ Return code as a string."
;; into a template, if required. Eventually call
;; final-output filter.
(let* ((body (org-element-normalize-string (org-export-data tree info)))
(template (intern (format "org-%s-template" backend)))
(template (cdr (assq 'template
(plist-get info :translate-alist))))
(output (org-export-filter-apply-functions
(plist-get info :filter-final-output)
(if (or (not (fboundp template)) body-only) body