Browse Source

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.
Nicolas Goaziou 11 years ago
parent
commit
197ed8b273
2 changed files with 2 additions and 6 deletions
  1. 1 3
      lisp/org-docbook.el
  2. 1 3
      lisp/org-html.el

+ 1 - 3
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))

+ 1 - 3
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))