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

ox-md: Fix docstring 

* lisp/ox-md.el (org-md-separate-elements): Fix docstring.
This commit is contained in:
Nicolas Goaziou 2015-09-24 10:27:24 +02:00
parent 11bba63dc3
commit e68bc78ae4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox-md.el
View File

@ -107,7 +107,8 @@ to this rule:
1. Preserve blank lines between sibling items in a plain list, 1. Preserve blank lines between sibling items in a plain list,
2. In an item, remove any blank line before the very first 2. In an item, remove any blank line before the very first
paragraph and the next sub-list. paragraph and the next sub-list when the latter ends the
current item.
Assume BACKEND is `md'." Assume BACKEND is `md'."
(org-element-map tree (remq 'item org-element-all-elements) (org-element-map tree (remq 'item org-element-all-elements)
@ -116,7 +117,7 @@ Assume BACKEND is `md'."
e :post-blank e :post-blank
(if (and (eq (org-element-type e) 'paragraph) (if (and (eq (org-element-type e) 'paragraph)
(eq (org-element-type (org-element-property :parent e)) 'item) (eq (org-element-type (org-element-property :parent e)) 'item)
(not (org-export-get-previous-element e info)) (org-export-first-sibling-p e info)
(let ((next (org-export-get-next-element e info))) (let ((next (org-export-get-next-element e info)))
(and (eq (org-element-type next) 'plain-list) (and (eq (org-element-type next) 'plain-list)
(not (org-export-get-next-element next info))))) (not (org-export-get-next-element next info)))))