From bc3ed23d164cd4e0d52a86f8ac59158b83539d11 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Mon, 19 Apr 2021 18:17:55 +0200
Subject: [PATCH] element: Interpret :post-blank property in strings

* lisp/org-element.el (org-element-interpret-data):
Interpret :post-blank property in strings.
* testing/lisp/test-org-element.el (test-org-element/interpret-data):
Add test.
---
 lisp/org-element.el              | 2 +-
 testing/lisp/test-org-element.el | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 0f0e01e8a..1e5ca3e6b 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -4662,7 +4662,7 @@ to interpret.  Return Org syntax as a string."
 				   (eq (org-element-property :pre-blank parent)
 				       0)))))
 			  ""))))))
-		(if (memq type '(org-data plain-text nil)) results
+		(if (memq type '(org-data nil)) results
 		  ;; Build white spaces.  If no `:post-blank' property
 		  ;; is specified, assume its value is 0.
 		  (let ((blank (or (org-element-property :post-blank data) 0)))
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 78703467a..cfd8406b4 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -2613,7 +2613,12 @@ Outside list"
 	  (org-element-interpret-data
 	   '(center nil
 		    (pseudo-element (:post-blank 1) (paragraph nil "A"))
-		    (paragraph nil "B"))))))
+		    (paragraph nil "B")))))
+  ;; Obey post-blank property in strings.
+  (should
+   (equal "A "
+	  (org-element-interpret-data
+           (org-element-put-property "A" :post-blank 1)))))
 
 (ert-deftest test-org-element/center-block-interpreter ()
   "Test center block interpreter."