Fix previous commit again
authorBastien Guerry <bzg@altern.org>
Mon, 25 Mar 2013 17:28:50 +0000 (18:28 +0100)
committerBastien Guerry <bzg@altern.org>
Mon, 25 Mar 2013 17:28:50 +0000 (18:28 +0100)
Now off.

lisp/ox-odt.el

index 366dbdd..5fb1491 100644 (file)
@@ -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)))