ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2015-09-24 10:27:47 +02:00
parent d4aa7692bd e68bc78ae4
commit fe182cf0d7
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)))))