mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-21 23:18:41 +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")) (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))

4
lisp/org-html.el
View file

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