|
@@ -4467,7 +4467,7 @@ the list of objects itself."
|
|
|
(let (next-object contents)
|
|
|
(while (and (not (eobp))
|
|
|
(setq next-object (org-element--object-lex restriction)))
|
|
|
- ;; Text before any object. Untabify it.
|
|
|
+ ;; Text before any object.
|
|
|
(let ((obj-beg (org-element-property :begin next-object)))
|
|
|
(unless (= (point) obj-beg)
|
|
|
(let ((text (buffer-substring-no-properties (point) obj-beg)))
|
|
@@ -4487,7 +4487,7 @@ the list of objects itself."
|
|
|
next-object)
|
|
|
contents)
|
|
|
(goto-char obj-end)))
|
|
|
- ;; Text after last object. Untabify it.
|
|
|
+ ;; Text after last object.
|
|
|
(unless (eobp)
|
|
|
(let ((text (buffer-substring-no-properties (point) end)))
|
|
|
(push (if acc (org-element-put-property text :parent acc) text)
|