浏览代码

Merge branch 'maint'

Nicolas Goaziou 9 年之前
父节点
当前提交
256fefa9d7
共有 1 个文件被更改,包括 4 次插入3 次删除
  1. 4 3
      lisp/ox-md.el

+ 4 - 3
lisp/ox-md.el

@@ -116,9 +116,10 @@ Assume BACKEND is `md'."
        e :post-blank
        (if (and (eq (org-element-type e) 'paragraph)
 		(eq (org-element-type (org-element-property :parent e)) 'item)
-		(eq (org-element-type (org-export-get-next-element e info))
-		    'plain-list)
-		(not (org-export-get-previous-element e info)))
+		(not (org-export-get-previous-element e info))
+		(let ((next (org-export-get-next-element e info)))
+		  (and (eq (org-element-type next) 'plain-list)
+		       (not (org-export-get-next-element next info)))))
 	   0
 	 1))))
   ;; Return updated tree.