|
@@ -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
|