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)) (if transcoder (funcall transcoder data info) data))
info)) info))
;; Uninterpreted element/object: change it back to Org ;; Uninterpreted element/object: change it back to Org
;; syntax. ;; syntax and export again resulting raw string.
((not (org-export-interpret-p data info)) ((not (org-export-interpret-p data info))
(org-export-expand (org-export-data
data (org-export-expand
(mapconcat (lambda (blob) (org-export-data blob info)) data
(org-element-contents data) (mapconcat (lambda (blob) (org-export-data blob info))
""))) (org-element-contents data)
""))
info))
;; Secondary string. ;; Secondary string.
((not type) ((not type)
(mapconcat (lambda (obj) (org-export-data obj info)) data "")) (mapconcat (lambda (obj) (org-export-data obj info)) data ""))