Revert "Preserve math environments in title when exporting to LaTeX"
This reverts commit c579f08eee
.
This commit is contained in:
parent
c579f08eee
commit
e1e916d659
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue