From e1d6c251ae7ec483c1888ed08086308be5c7ec2d Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 7 May 2012 13:32:49 +0200 Subject: [PATCH] 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. --- contrib/lisp/org-export.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 627c55ca1..1f549800f 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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 ""))