diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-07-14 09:28:40 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:45 +0200 |
commit | 197ed8b273c32f4715fd21a93bf3db767b845ad8 (patch) | |
tree | 5d463f3b8e4813882d8427526271f798fae6982c | |
parent | 0c4770e66144d86792061dc4f35cf02d2084eff0 (diff) | |
download | org-mode-197ed8b273c32f4715fd21a93bf3db767b845ad8.tar.gz |
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.
-rw-r--r-- | lisp/org-docbook.el | 4 | ||||
-rw-r--r-- | lisp/org-html.el | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el index 61c639f..ab2dfd6 100644 --- a/lisp/org-docbook.el +++ b/lisp/org-docbook.el @@ -1034,9 +1034,7 @@ publishing directory." (when (and (not (equal item-type "d")) (not (string-match "[^ \t]" line))) ;; Empty line. Pretend indentation is large. - (setq ind (if org-empty-line-terminates-plain-lists - 0 - (1+ (or (car local-list-indent) 1))))) + (setq ind (1+ (or (car local-list-indent) 1)))) (while (and in-local-list (or (and (= ind (car local-list-indent)) (not starter)) diff --git a/lisp/org-html.el b/lisp/org-html.el index da0af3e..60b4b96 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -1558,9 +1558,7 @@ lang=\"%s\" xml:lang=\"%s\"> (when (and (not (equal item-type "d")) (not (string-match "[^ \t]" line))) ;; empty line. Pretend indentation is large. - (setq ind (if org-empty-line-terminates-plain-lists - 0 - (1+ (or (car local-list-indent) 1))))) + (setq ind (1+ (or (car local-list-indent) 1)))) (while (and in-local-list (or (and (= ind (car local-list-indent)) (not starter)) |