Browse Source

Merge branch 'maint'

Nicolas Goaziou 9 years ago
parent
commit
fe182cf0d7
1 changed files with 3 additions and 2 deletions
  1. 3 2
      lisp/ox-md.el

+ 3 - 2
lisp/ox-md.el

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