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)
|
(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
|
||||||
|
|
Loading…
Reference in New Issue