From: Bastien Guerry <bzg@altern.org>
Date: Mon, 25 Mar 2013 21:45:17 +0000 (+0100)
Subject: Revert "ox-odt.el: Fix annotation insertion."
X-Git-Tag: release_8.0~3^2~285
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/8aeea9b02ce50e6526e311c7abc026935d09d80a

Revert "ox-odt.el: Fix annotation insertion."

This reverts commit 9eb384fe4f9a8832c4adc1bed900bc5243c31e37.
---

diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el
index 366dbdd42..9dd894608 100644
--- a/lisp/ox-odt.el
+++ b/lisp/ox-odt.el
@@ -3066,14 +3066,15 @@ holding contextual information."
 	     (date (or (plist-get attributes :date)
 		       ;; FIXME: Is `car' right thing to do below?
 		       (car (plist-get info :date)))))
-	(format "<office:annotation>\n%s\n</office:annotation>"
-		(concat
-		 (and author
-		      (format "<dc:creator>%s</dc:creator>" author))
-		 (and date
-		      (format "<dc:date>%s</dc:date>"
-			      (org-odt--format-timestamp date nil 'iso-date)))
-		 contents))))
+	(format "\n<text:p>%s</text:p>"
+		(format "<office:annotation>\n%s\n</office:annotation>"
+			(concat
+			 (and author
+			      (format "<dc:creator>%s</dc:creator>" author))
+			 (and date
+			      (format "<dc:date>%s</dc:date>"
+				      (org-odt--format-timestamp date nil 'iso-date)))
+			 contents)))))
      ;; Textbox.
      ((string= type "textbox")
       (let ((width (plist-get attributes :width))
@@ -3086,17 +3087,6 @@ holding contextual information."
 						   style extra anchor))))
      (t contents))))
 
-(defun org-odt--fix-annotations ()
-  "Fix annotations in the XML buffer."
-  (save-excursion
-    (goto-char (point-min))
-    (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)))))
-
 
 ;;;; Src Block
 
@@ -4035,7 +4025,7 @@ contextual information."
   `(let* ((--out-file ,out-file)
 	  (out-file-type (file-name-extension --out-file))
 	  (org-odt-xml-files '("META-INF/manifest.xml" "content.xml"
-			       "meta.xml" "styles.xml"))
+				 "meta.xml" "styles.xml"))
 	  ;; Initialize temporary workarea.  All files that end up in
 	  ;; the exported document get parked/created here.
 	  (org-odt-zip-dir (file-name-as-directory
@@ -4084,9 +4074,6 @@ contextual information."
 		     (when buf
 		       (with-current-buffer buf
 			 ;; Prettify output if needed.
-			 (if (equal (file-name-nondirectory (buffer-file-name buf))
-				      "content.xml")
-			     (org-odt--fix-annotations))
 			 (when org-odt-prettify-xml
 			   (indent-region (point-min) (point-max)))
 			 (save-buffer 0)))))