org-export: Fix uninterpreted syntax status

* contrib/lisp/org-export.el (org-export-data): Send uninterpreted Org
  syntax into export process again, so plain text transformations
  still can be applied on it.
This commit is contained in:
Nicolas Goaziou 2012-05-07 13:32:49 +02:00
parent cbc1c03680
commit e1d6c251ae
1 changed files with 8 additions and 6 deletions

View File

@ -1574,13 +1574,15 @@ Return transcoded string."
(if transcoder (funcall transcoder data info) data))
info))
;; Uninterpreted element/object: change it back to Org
;; syntax.
;; syntax and export again resulting raw string.
((not (org-export-interpret-p data info))
(org-export-expand
data
(mapconcat (lambda (blob) (org-export-data blob info))
(org-element-contents data)
"")))
(org-export-data
(org-export-expand
data
(mapconcat (lambda (blob) (org-export-data blob info))
(org-element-contents data)
""))
info))
;; Secondary string.
((not type)
(mapconcat (lambda (obj) (org-export-data obj info)) data ""))