Преглед изворни кода

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

This reverts commit c579f08eeee1cd92b53fdb92925a7d3035012816.
Carsten Dominik пре 14 година
родитељ
комит
e1e916d659
1 измењених фајлова са 3 додато и 23 уклоњено
  1. 3 23
      lisp/org-latex.el

+ 3 - 23
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