Revert "Preserve math environments in title when exporting to LaTeX"

This reverts commit c579f08eee.
This commit is contained in:
Carsten Dominik 2010-11-21 10:03:07 +01:00
parent c579f08eee
commit e1e916d659
1 changed files with 3 additions and 23 deletions

View File

@ -729,33 +729,13 @@ when PUB-DIR is set, use this as the publishing directory."
(org-current-export-file buffer-file-name) (org-current-export-file buffer-file-name)
(title (or (and subtree-p (org-export-get-title-from-subtree)) (title (or (and subtree-p (org-export-get-title-from-subtree))
(plist-get opt-plist :title) (plist-get opt-plist :title)
(unless (plist-get opt-plist :skip-before-1st-heading) (and (not
(let ((pt (org-export-grab-title-from-buffer))) (plist-get opt-plist :skip-before-1st-heading))
(remove-text-properties 0 (length pt) (org-export-grab-title-from-buffer))
'(:org-license-to-kill t) pt)
pt))
(and buffer-file-name (and buffer-file-name
(file-name-sans-extension (file-name-sans-extension
(file-name-nondirectory buffer-file-name))) (file-name-nondirectory buffer-file-name)))
"No Title")) "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 (filename
(and (not to-buffer) (and (not to-buffer)
(concat (concat