mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 22:16:27 +00:00
Code Releases Activity

Remove useless checks for `org-empty-line-terminates-plain-lists'.

Browse source 
* 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:
Nicolas Goaziou 2010-07-14 09:28:40 +02:00
parent 0c4770e661
commit 197ed8b273
2 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-docbook.el
View file

@ -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))

4
lisp/org-html.el
View file

@ -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))