From 9fed50f6760aa34a426981d3606285c090ffd5bd Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 21 Mar 2013 20:08:24 +0100 Subject: [PATCH] ox: White spaces after export snippets are never ignored * lisp/ox.el (org-export-data): White spaces after export snippets are never ignored. Back-end developers should pay attention to the fact that white spaces before and after an ignored export snippet now are accumulated in the output. --- lisp/ox.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index a545bb9..160f73f 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -2062,8 +2062,12 @@ Return transcoded string." (eq (plist-get info :with-archived-trees) 'headline) (org-element-property :archivedp data))) (let ((transcoder (org-export-transcoder data info))) - (and (functionp transcoder) - (funcall transcoder data nil info)))) + (or (and (functionp transcoder) + (funcall transcoder data nil info)) + ;; Export snippets never return a nil value so + ;; that white spaces following them are never + ;; ignored. + (and (eq type 'export-snippet) "")))) ;; Element/Object with contents. (t (let ((transcoder (org-export-transcoder data info))) -- 1.8.2