mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-21 23:18:41 +00:00
Remove useless checks for `org-empty-line-terminates-plain-lists'.
* org-docbook.el (org-export-as-docbook): When we find an empty line, we do not need to check for `org-empty-line-terminates-plain-lists' because we would have found end-list marker before. * org-html.el (org-export-as-html): Same.
This commit is contained in:
parent
0c4770e661
commit
197ed8b273
|
@ -1034,9 +1034,7 @@ publishing directory."
|
||||||
(when (and (not (equal item-type "d"))
|
(when (and (not (equal item-type "d"))
|
||||||
(not (string-match "[^ \t]" line)))
|
(not (string-match "[^ \t]" line)))
|
||||||
;; Empty line. Pretend indentation is large.
|
;; Empty line. Pretend indentation is large.
|
||||||
(setq ind (if org-empty-line-terminates-plain-lists
|
(setq ind (1+ (or (car local-list-indent) 1))))
|
||||||
0
|
|
||||||
(1+ (or (car local-list-indent) 1)))))
|
|
||||||
(while (and in-local-list
|
(while (and in-local-list
|
||||||
(or (and (= ind (car local-list-indent))
|
(or (and (= ind (car local-list-indent))
|
||||||
(not starter))
|
(not starter))
|
||||||
|
|
|
@ -1558,9 +1558,7 @@ lang=\"%s\" xml:lang=\"%s\">
|
||||||
(when (and (not (equal item-type "d"))
|
(when (and (not (equal item-type "d"))
|
||||||
(not (string-match "[^ \t]" line)))
|
(not (string-match "[^ \t]" line)))
|
||||||
;; empty line. Pretend indentation is large.
|
;; empty line. Pretend indentation is large.
|
||||||
(setq ind (if org-empty-line-terminates-plain-lists
|
(setq ind (1+ (or (car local-list-indent) 1))))
|
||||||
0
|
|
||||||
(1+ (or (car local-list-indent) 1)))))
|
|
||||||
(while (and in-local-list
|
(while (and in-local-list
|
||||||
(or (and (= ind (car local-list-indent))
|
(or (and (= ind (car local-list-indent))
|
||||||
(not starter))
|
(not starter))
|
||||||
|
|
Loading…
Reference in a new issue