mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

org: Replace AUTO with appropriate language when previewing snippets

Browse Source 
* lisp/org.el (org-create-formula--latex-header): Replace AUTO with
  appropriate language when previewing snippets.
This commit is contained in:
Nicolas Goaziou 2013-06-19 19:31:06 +02:00
parent 4788a58e71
commit bd987e3804
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/org.el
View File

@ -4313,12 +4313,6 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
(re-search-forward org-table-any-border-regexp nil 1))))
(unless quietly (message "Mapping tables: done")))
;; Declare and autoload functions from ox.el and al.
(declare-function org-export-get-environment "ox"
(&optional backend subtreep ext-plist))
(declare-function org-latex-guess-inputenc "ox-latex" (header))
;; Declare and autoload functions from org-agenda.el
(eval-and-compile
@ -18508,18 +18502,20 @@ share a good deal of logic."
(declare-function org-export--get-global-options "ox" (&optional backend))
(declare-function org-export--get-inbuffer-options "ox" (&optional backend))
(declare-function org-latex-guess-inputenc "ox-latex" (header))
(declare-function org-latex-guess-babel-language "ox-latex" (header info))
(defun org-create-formula--latex-header ()
"Return LaTeX header appropriate for previewing a LaTeX snippet."
(org-latex-guess-inputenc
(org-splice-latex-header
org-format-latex-header
org-latex-default-packages-alist
org-latex-packages-alist t
(plist-get
(org-combine-plists
(org-export--get-global-options 'latex)
(org-export--get-inbuffer-options 'latex))
:latex-header))))
(let ((info (org-combine-plists (org-export--get-global-options 'latex)
(org-export--get-inbuffer-options 'latex))))
(org-latex-guess-babel-language
(org-latex-guess-inputenc
(org-splice-latex-header
org-format-latex-header
org-latex-default-packages-alist
org-latex-packages-alist t
(plist-get info :latex-header)))
info)))
;; This function borrows from Ganesh Swami's latex2png.el
(defun org-create-formula-image-with-dvipng (string tofile options buffer)