diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2021-04-19 18:17:55 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2021-04-19 18:17:55 +0200 |
commit | bc3ed23d164cd4e0d52a86f8ac59158b83539d11 (patch) | |
tree | 432f880bb24fe2c0c38635e5818ef622968c9874 | |
parent | a89d96e6a5bb519c5bc03ef0f984e89de940f8b3 (diff) | |
download | org-mode-bc3ed23d164cd4e0d52a86f8ac59158b83539d11.tar.gz |
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.
-rw-r--r-- | lisp/org-element.el | 2 | ||||
-rw-r--r-- | 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 0f0e01e..1e5ca3e 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 7870346..cfd8406 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." |