|
@@ -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)))
|