diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-08 20:21:41 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-08 20:21:41 +0200 |
| commit | 1b3798ea071cdb79479e33c4e7ce4478a3c86b3c (patch) | |
| tree | 0986fc094277565b7285dcfbd702236312fe1f77 | |
| parent | aab16ffdf4a661ef37f30ca8f18f5c7fb223cbe6 (diff) | |
| download | org-mode-1b3798ea071cdb79479e33c4e7ce4478a3c86b3c.tar.gz | |
org-inlinetask: fix HTML export when not clearly defined as a paragraph
* lisp/org-inlinetask.el (org-inlinetask-export-handler): make sure
the task starts a paragraph or the HTML exporter will produce an
incorrect output.
| -rw-r--r-- | lisp/org-inlinetask.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index 7a52d6b..270b99a 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -372,6 +372,11 @@ Either remove headline and meta data, or do special formatting." (eval (append '(format format-str) (mapcar nil-to-str tokens))) '(original-indentation 1000)))) + ;; Ensure task starts a new paragraph. + (unless (or (bobp) + (save-excursion (forward-line -1) + (looking-at "[ \t]*$"))) + (insert "\n")) (insert export-str) (unless (bolp) (insert "\n"))))))))) |