forked from mirrors/org-mode
org-element: White space fixing and trivial refactoring
This commit is contained in:
parent
6951f9af15
commit
096ffd571c
File diff suppressed because it is too large
Load Diff
|
@ -1346,18 +1346,14 @@ Return transcoded string."
|
|||
;; the original buffer, and call appropriate filters.
|
||||
(when results
|
||||
;; No filter for a full document.
|
||||
(if (eq type 'org-data)
|
||||
results
|
||||
(if (eq type 'org-data) results
|
||||
(org-export-filter-apply-functions
|
||||
(eval (intern (format "org-export-filter-%s-functions" type)))
|
||||
(if (memq type org-element-all-elements)
|
||||
(concat
|
||||
(org-element-normalize-string results)
|
||||
(make-string (org-element-get-property :post-blank blob) 10))
|
||||
(concat
|
||||
results
|
||||
(make-string
|
||||
(org-element-get-property :post-blank blob) 32)))
|
||||
(let ((post-blank (org-element-get-property :post-blank blob)))
|
||||
(if (memq type org-element-all-elements)
|
||||
(concat (org-element-normalize-string results)
|
||||
(make-string post-blank ?\n))
|
||||
(concat results (make-string post-blank ? ))))
|
||||
backend)))))))
|
||||
(org-element-get-contents data) ""))
|
||||
|
||||
|
|
Loading…
Reference in New Issue