mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:00:49 +00:00
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:
parent
a89d96e6a5
commit
bc3ed23d16
|
@ -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)))
|
||||||
|
|
|
@ -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."
|
||||||
|
|
Loading…
Reference in a new issue