diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-09-24 10:27:24 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-09-24 10:27:24 +0200 |
| commit | e68bc78ae404b1524e92986dc7ff71826c235e73 (patch) | |
| tree | 09bfc76ef3abe79307f1b13fbc58e9f69c775812 | |
| parent | 11bba63dc32efb2a74beeab2e0bf8f3c3e1bc460 (diff) | |
| download | org-mode-e68bc78ae404b1524e92986dc7ff71826c235e73.tar.gz | |
ox-md: Fix docstring
* lisp/ox-md.el (org-md-separate-elements): Fix docstring.
| -rw-r--r-- | lisp/ox-md.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 989f8bf..602c149 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -107,7 +107,8 @@ to this rule: 1. Preserve blank lines between sibling items in a plain list, 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'." (org-element-map tree (remq 'item org-element-all-elements) @@ -116,7 +117,7 @@ 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) - (not (org-export-get-previous-element e info)) + (org-export-first-sibling-p 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))))) |