emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Eric Schulte
Subject: [Orgmode] [PATCH] double-O-LaTeX: retain meta-information during LaTeX Export
Date: Fri, 02 Jul 2010 13:56:07 -0700
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux)

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]  
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.")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]