remove fontspec and unicode from default list; remove alternate packages from create...

diff --git a/.emacs b/.emacs
index 3428d07c7c77394a6b5d086e72b6d380c7734cf0..cf2269e0c4e87d546debc6295d3c45b9c6b41937 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -681,9 +681,7 @@ Argument DESCRIPTION MIME description."
 
 ;; Default packages included in /every/ tex file, latex, pdflatex or xelatex
 (setq org-latex-default-packages-alist
-      '(("" "fontspec" t)
-        ("" "xunicode" t)
-        ))
+      '())
 (setq org-latex-packages-alist
       '(("" "graphicx" t)
         ("" "fontspec" t)
@@ -694,6 +692,22 @@ Argument DESCRIPTION MIME description."
         ("" "longtable" nil)
         ("" "float" )))
 
+(defun org-create-formula--latex-header ()
+  "Return LaTeX header appropriate for previewing a LaTeX snippet."
+  (let ((info (org-combine-plists (org-export--get-global-options
+                                  (org-export-get-backend 'latex))
+                                 (org-export--get-inbuffer-options
+                                  (org-export-get-backend 'latex)))))
+    (org-latex-guess-babel-language
+     (org-latex-guess-inputenc
+      (org-splice-latex-header
+       org-format-latex-header
+       org-latex-default-packages-alist
+       nil t
+       (plist-get info :latex-header)))
+     info)))
+
+
 ; support ignoring headers in org mode export to latex
 ; from http://article.gmane.org/gmane.emacs.orgmode/67692
 (defadvice org-latex-headline (around my-latex-skip-headlines