diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el index 70a707b..13b46ed 100644 --- a/lisp/org-docbook.el +++ b/lisp/org-docbook.el @@ -607,6 +607,7 @@ publishing directory." ;; End of quote section? (when (and inquote (string-match "^\\*+ " line)) (insert "]]>\n\n") + (org-export-docbook-open-para) (setq inquote nil)) ;; Inside a quote section? (when inquote @@ -625,7 +626,8 @@ publishing directory." (not (string-match "^[ \t]*\\(:.*\\)" (car lines)))) (setq infixed nil) - (insert "]]>\n\n")) + (insert "]]>\n\n") + (org-export-docbook-open-para)) (throw 'nextline nil)) ;; Protected HTML @@ -682,11 +684,13 @@ publishing directory." (when (equal "ORG-BLOCKQUOTE-END" line) (org-export-docbook-close-para-maybe) (insert "\n") + (org-export-docbook-open-para) (throw 'nextline nil)) ;; End of verses (when (equal "ORG-VERSE-END" line) (insert "\n\n") + (org-export-docbook-open-para) (setq inverse nil) (throw 'nextline nil)) @@ -705,6 +709,7 @@ publishing directory." (org-export-docbook-close-para-maybe) (insert "\n" "\n\n") + (org-export-docbook-open-para) (throw 'nextline nil)) ;; Make targets to anchors. Note that currently FOP does not diff --git a/lisp/org-html.el b/lisp/org-html.el index b422066..b41ef3b 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -761,6 +761,7 @@ lang=\"%s\" xml:lang=\"%s\"> ;; end of quote section? (when (and inquote (string-match "^\\*+ " line)) (insert "\n") + (org-open-par) (setq inquote nil)) ;; inside a quote section? (when inquote @@ -780,7 +781,8 @@ lang=\"%s\" xml:lang=\"%s\"> (not (string-match "^[ \t]*:\\(\\([ \t]\\|$\\)\\(.*\\)\\)" (car lines)))) (setq infixed nil) - (insert "\n")) + (insert "\n") + (org-open-par)) (throw 'nextline nil)) ;; Protected HTML @@ -814,6 +816,7 @@ lang=\"%s\" xml:lang=\"%s\"> (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n\n") + (org-open-par) (throw 'nextline nil)) (when (equal "ORG-VERSE-START" line) (org-close-par-maybe) @@ -822,6 +825,7 @@ lang=\"%s\" xml:lang=\"%s\"> (throw 'nextline nil)) (when (equal "ORG-VERSE-END" line) (insert "

\n") + (org-open-par) (setq inverse nil) (throw 'nextline nil)) (when (equal "ORG-CENTER-START" line) @@ -832,6 +836,7 @@ lang=\"%s\" xml:lang=\"%s\"> (when (equal "ORG-CENTER-END" line) (org-close-par-maybe) (insert "\n") + (org-open-par) (throw 'nextline nil)) (when inverse (let ((i (org-get-string-indentation line)))