tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element: White space fixing and trivial refactoring

This commit is contained in:
Nicolas Goaziou 2012-01-11 15:14:08 +01:00
parent 6951f9af15
commit 096ffd571c
2 changed files with 456 additions and 393 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

833
contrib/lisp/org-element.el
View File

File diff suppressed because it is too large Load Diff

16
contrib/lisp/org-export.el
View File

@ -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) ""))