[PATCH] double-O-LaTeX: retain meta-information during LaTeX Export

["Eric Schulte" <schulte.eric@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 861 bytes --]

Revoking org-latex's license to kill.

Hi,

I've noticed a sneaky bug when exporting to LaTeX.

Org-babel uses top-level #+BABEL: or #+PARAMETERS: lines to set global
values for header arguments.  When exporting to latex, the latex
exporter removes *all* meta-information header lines when exporting the
body [1].

Some Babel blocks rely on these lines and the header values they define
to control their behavior on export.  Does anyone know why these lines
are being removed?  I've experimented with the attached patch [2] in
which the LaTeX exporter *does not* remove these lines.  It fixes the
babel issues, and I haven't noticed any problems caused by leaving these
lines in (I think the lines are now being removed later in the export
process).

Thanks -- Eric

Footnotes: 
[1]  see `org-export-latex-first-lines' and `org-export-kill-licensed-text'

[2]  

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: revoke-org-latex-liscence-to-kill.patch --]
[-- Type: text/x-diff, Size: 1256 bytes --]

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index d725fc8..73a71b3 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1202,22 +1202,17 @@ If END is non-nil, it is the end of the region."
 	   (end (if (re-search-forward "^\\*+ " end t)
 		    (goto-char (match-beginning 0))
 		  (goto-char (or end (point-max))))))
-      (prog1
-	  (org-export-latex-content
-	   (org-export-preprocess-string
-	    (buffer-substring pt end)
-	    :for-LaTeX t
-	    :emph-multiline t
-	    :add-text nil
-	    :comments nil
-	    :skip-before-1st-heading nil
-	    :LaTeX-fragments nil
-	    :timestamps (plist-get opt-plist :timestamps)
-	    :footnotes (plist-get opt-plist :footnotes)))
-	(org-unmodified
-	 (let ((inhibit-read-only t))
-	   (add-text-properties pt (max pt (1- end))
-				'(:org-license-to-kill t))))))))
+      (org-export-latex-content
+       (org-export-preprocess-string
+	(buffer-substring pt end)
+	:for-LaTeX t
+	:emph-multiline t
+	:add-text nil
+	:comments nil
+	:skip-before-1st-heading nil
+	:LaTeX-fragments nil
+	:timestamps (plist-get opt-plist :timestamps)
+	:footnotes (plist-get opt-plist :footnotes))))))
 
 (defvar org-export-latex-header-defs nil
   "The header definitions that might be used in the LaTeX body.")

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode