forked from mirrors/org-mode
org-element: Remove empty strings between objects in parse tree
* contrib/lisp/org-element.el (org-element-parse-objects): Remove empty strings between objects in parse tree.
This commit is contained in:
parent
f29e6edb90
commit
aae20190a3
|
@ -3116,7 +3116,7 @@ allowed in the current object."
|
||||||
(setq next-object (funcall get-next-object candidates))
|
(setq next-object (funcall get-next-object candidates))
|
||||||
;; 1. Text before any object.
|
;; 1. Text before any object.
|
||||||
(let ((obj-beg (org-element-get-property :begin next-object)))
|
(let ((obj-beg (org-element-get-property :begin next-object)))
|
||||||
(unless (= beg obj-beg)
|
(unless (= (point) obj-beg)
|
||||||
(push (buffer-substring-no-properties (point) obj-beg) acc)))
|
(push (buffer-substring-no-properties (point) obj-beg) acc)))
|
||||||
;; 2. Object...
|
;; 2. Object...
|
||||||
(let ((obj-end (org-element-get-property :end next-object))
|
(let ((obj-end (org-element-get-property :end next-object))
|
||||||
|
|
Loading…
Reference in a new issue