mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2021-04-19 18:17:55 +02:00
parent a89d96e6a5
commit bc3ed23d16
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-element.el
View File

@ -4662,7 +4662,7 @@ to interpret. Return Org syntax as a string."
(eq (org-element-property :pre-blank parent) (eq (org-element-property :pre-blank parent)
0))))) 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 ;; Build white spaces. If no `:post-blank' property
;; is specified, assume its value is 0. ;; is specified, assume its value is 0.
(let ((blank (or (org-element-property :post-blank data) 0))) (let ((blank (or (org-element-property :post-blank data) 0)))

7
testing/lisp/test-org-element.el
View File

@ -2613,7 +2613,12 @@ Outside list"
(org-element-interpret-data (org-element-interpret-data
'(center nil '(center nil
(pseudo-element (:post-blank 1) (paragraph nil "A")) (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 () (ert-deftest test-org-element/center-block-interpreter ()
"Test center block interpreter." "Test center block interpreter."