From e1e916d659e375868aec591a6391f1371a1e5f80 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 21 Nov 2010 10:03:07 +0100 Subject: [PATCH] Revert "Preserve math environments in title when exporting to LaTeX" This reverts commit c579f08eeee1cd92b53fdb92925a7d3035012816. --- lisp/org-latex.el | 26 +++----------------------- 1 file changed, 3 insertions(+), 23 deletions(-) diff --git a/lisp/org-latex.el b/lisp/org-latex.el index d7677f55f..33bfc5eac 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -729,33 +729,13 @@ when PUB-DIR is set, use this as the publishing directory." (org-current-export-file buffer-file-name) (title (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-plist :title) - (unless (plist-get opt-plist :skip-before-1st-heading) - (let ((pt (org-export-grab-title-from-buffer))) - (remove-text-properties 0 (length pt) - '(:org-license-to-kill t) pt) - pt)) + (and (not + (plist-get opt-plist :skip-before-1st-heading)) + (org-export-grab-title-from-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "No Title")) - ; Preprocessing preserves math environments in title - (title - (and title (string-match "\\S-" title) - (org-export-preprocess-string - title - :emph-multiline t - :for-LaTeX t - :comments nil - :tags (plist-get opt-plist :tags) - :priority (plist-get opt-plist :priority) - :footnotes (plist-get opt-plist :footnotes) - :drawers (plist-get opt-plist :drawers) - :timestamps (plist-get opt-plist :timestamps) - :todo-keywords (plist-get opt-plist :todo-keywords) - :add-text nil - :select-tags nil - :exclude-tags nil - :LaTeX-fragments nil))) (filename (and (not to-buffer) (concat