diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-14 18:05:02 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-14 18:05:02 +0200 |
| commit | 3825cc6bcb389b578317916b51369059a59f7618 (patch) | |
| tree | 051475c1c115dc9847ae8774be2c0d50c6ff9f91 | |
| parent | 1662b8a4e0233f52fa473492b0fca6ae34d214a2 (diff) | |
| download | org-mode-3825cc6bcb389b578317916b51369059a59f7618.tar.gz | |
Export: Fix bug with empty lines in examples
Patch by Baoqiu Cui.
| -rw-r--r-- | lisp/org-docbook.el | 4 | ||||
| -rw-r--r-- | lisp/org-html.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el index 12f6e8c..8a89675 100644 --- a/lisp/org-docbook.el +++ b/lisp/org-docbook.el @@ -653,7 +653,9 @@ publishing directory." (replace-match "\\2\n")) (insert line "\n") (while (and lines - (or (not ind) (equal ind (get-text-property 0 'original-indentation (car lines)))) + (or (= (length (car lines)) 0) + (not ind) + (equal ind (get-text-property 0 'original-indentation (car lines)))) (or (= (length (car lines)) 0) (get-text-property 0 'org-protected (car lines)))) (insert (pop lines) "\n")) diff --git a/lisp/org-html.el b/lisp/org-html.el index bb73f24..77f820e 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -850,7 +850,9 @@ lang=\"%s\" xml:lang=\"%s\"> (replace-match "\\2\n")) (insert line "\n") (while (and lines - (or (not ind) (equal ind (get-text-property 0 'original-indentation (car lines)))) + (or (= (length (car lines)) 0) + (not ind) + (equal ind (get-text-property 0 'original-indentation (car lines)))) (or (= (length (car lines)) 0) (get-text-property 0 'org-protected (car lines)))) (insert (pop lines) "\n")) |