mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

ox-odt: Small refactoring 

* lisp/ox-odt.el (org-odt--translate-latex-fragments): Small
  refactoring.
This commit is contained in:
Nicolas Goaziou 2015-02-26 21:39:05 +01:00
parent 9eb8c40821
commit fc850ce623
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ox-odt.el
View File

@ -3801,7 +3801,8 @@ contextual information."
(file-name-nondirectory input-file))))
(display-msg
(case processing-type
((dvipng imagemagick) (format "Creating LaTeX Image %d..." count))
((dvipng imagemagick)
(format "Creating LaTeX Image %d..." count))
(mathml (format "Creating MathML snippet %d..." count))))
;; Get an Org-style link to PNG image or the MathML
;; file.
@ -3819,10 +3820,10 @@ contextual information."
(when org-link
;; Conversion succeeded. Parse above Org-style link to
;; a `link' object.
(let* ((link (org-element-map
(org-element-parse-secondary-string
org-link '(paragraph link))
'link #'identity info t))
(let* ((link
(org-element-map
(org-element-parse-secondary-string org-link '(link))
'link #'identity info t))
(replacement
(case (org-element-type latex-*)
;; Case 1: LaTeX environment. Mimic