diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-25 18:28:50 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-25 18:28:50 +0100 |
commit | a3e8a1d6048f36057a38fe31c34d5fae98b684bb (patch) | |
tree | f86f5bc591b6ec84a76ecdb712a0c04c494de56a | |
parent | 9eb384fe4f9a8832c4adc1bed900bc5243c31e37 (diff) | |
download | org-mode-a3e8a1d6048f36057a38fe31c34d5fae98b684bb.tar.gz |
Fix previous commit again
Now off.
-rw-r--r-- | lisp/ox-odt.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 366dbdd..5fb1491 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -3093,9 +3093,10 @@ holding contextual information." (while (search-forward "<office:annotation>" nil t) (and (re-search-backward "</text:p>" nil t) (replace-match "" t t)) - (and (search-forward "</office:annotation>" nil t) - (re-search-forward "<text:p[^>]*>" nil t) - (replace-match "" t t))))) + (search-forward "</office:annotation>" nil t) + (if (re-search-forward "<text:p[^>]*>" nil t) + (replace-match "" t t) + (insert "\n</text:p>"))))) ;;;; Src Block @@ -4085,7 +4086,7 @@ contextual information." (with-current-buffer buf ;; Prettify output if needed. (if (equal (file-name-nondirectory (buffer-file-name buf)) - "content.xml") + "content.xml") (org-odt--fix-annotations)) (when org-odt-prettify-xml (indent-region (point-min) (point-max))) |