[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org bc3ed23: element: Interpret :post-blank pro
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org bc3ed23: element: Interpret :post-blank property in strings |
Date: |
Mon, 19 Apr 2021 12:57:09 -0400 (EDT) |
branch: externals-release/org
commit bc3ed23d164cd4e0d52a86f8ac59158b83539d11
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>
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 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org bc3ed23: element: Interpret :post-blank property in strings,
ELPA Syncer <=