mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-11 09:20:32 +00:00
Code

Fix previous commit again

Browse Source 
Now off.
This commit is contained in:
Bastien Guerry 2013-03-25 18:28:50 +01:00
parent 9eb384fe4f
commit a3e8a1d604
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ox-odt.el
View 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)))